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1.  Purpose  and  Organization  of  the  Manual 


1.1  Purpose: 

The  MINI-NAMPS  Programmer's  Manual  is  designed  for  the 
technical  staff  responsible  for  operating  and  maintaining  the  MINI- 
NAMPS  System.  It  describes  the  purpose,  necessary  preparation,  and 
execution  order  of  the  various  tasks  comprising  the  system.  Sample 
terminal  sessions  are  included  for  those  tasks  executed  in  an 
interactive  environment  and  sample  outputs  are  provided  to  clarify 
specific  program  capabilities. 

The  manual  assumes  that  members  of  the  staff  are  familiar 
with  the  following: 

a)  IBM  computing  equipment 

b)  IBM  System  360/370  Operating  System 

c)  IBM  Job  Control  Language 

d)  NIH  Computer  Center  Conventions  (an  NIH 

User's  Guide  is  required) 

e)  The  NIH  Command  Language  IWYLBUR) 

(a  WYLBUR  manual  is  required) 

f)  The  Command  Language  TSO 

(a  TSO  manual  is  required) 

g)  FORTRAN,  COBOL,  and  PL/I 


1.2  Organization: 

The  manual  is  organized  into  nine  major  sections.  Section  2, 
STORAGE  INFORMATION,  identifies  the  facility  on  which  the  MINI- 
NAMPS  System  presently  operates,  the  methods  by  which  the  system 
is  accessed,  and  the  storage  location  of  the  system's  programs,  job 
control  language,  and  data  bases. 

Sections  3 through  9 describe  the  seven  major  tasks  of  the 
MINI-NAMPS  system,  and  appear  in  the  order  in  which  the  tasks  are 
generally  executed.  The  section  titles,  along  with  their  subsections 
indicate  the  function  of  the  major  task  as  follows: 
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DELTA  SUBSYSTEM 


3) 

Collection 
Edit  and  Load 
Query/Select 
Extract 
Bypass 

4)  SUPPORT  SUBSYSTEM 

Quality  Ratio  Gen 
Support  Ratio  Gen 
Support 

5)  ENLISTED  REQUIREMENT  SUBSYSTEM 

Enlisted  Base  Load 
Base  Constraints 
Base  Update 

6)  ENLISTED  INVENTORY  SUBSYSTEM 

Inventory  Base  Load 
MFAST/Inventory  Projection 

7)  ENLISTED  NEC  SUBSYSTEM 
Load/Update/Punch 

8)  OFFICER  REQUIREMENT  SUBSYSTEM 

Officer  Base  Load 
Base  Update 

9)  BASE  REPORTS/DISPLAY  SUBSYSTEM 

Plot  Query 
Batch  Plots 
ERP/ORP  Compare 

Sections  3 through  8 are  subdivided  to  parallel  the  logical  flow  of 
execution.  Section  9 is  subdivided  into  report/display  categories  that 
indicate  the  nature  of  a report.  These  subsections  each  describe  a 
sequence  of  sub- tasks . Sub- tasks  are  streams  of  JCL,  each  of  which  is 
a distinct  JOB  and  derives  its  name  from  the  major  program  it 
executes.  Where  necessary,  the  sub-tasks  are  presented  in  the  order 
in  which  they  must  be  executed. 

NOTE:  The  names  of  sections,  subsections,  and  sub-tasks  (JOBS),  and 
the  organizational  method  described  above  are  reflected  in  the  Mini- 
NAMPS  System  flow  chart.  (See  Appendix  H) 
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[e  Information 
General: 

The  MINI-NAM  PS  system  is  presently  operating  at  the  National 
Institutes  of  Health  Computer  Center  under  the  IBM  System  360/370 
Operating  System  with  HASP.  WYLBUR  is  the  primary  mode  of 
access;  TSO  and  Batch  mode  serve  as  secondary  access  methods.  All 
programs,  data  sets,  and  job  control  language  referenced  herein 
reside  under  the  Department  of  the  Navy  account  number  WEU2  and 
are  accessed  with  the  initials  LLC. 


2.2  Programs: 


2.2.1  Source  Code 

The  source  code  for  each  program  is  stored  within  the 
data  set  WEU2LLC.PROGS78  on  magnetic  tape.  The  code 
must  be  transferred  from  tape  to  a disk  pack  before  it  can  be 
listed  and  edited  using  the  WYLBUR  terminal  command 
languages.  WEU2GSX.TAPE.TOD1SK  on  disk  pack  FILE07  is 
the  utility  program  which  performs  this  function.  Each 
program  in  WEU2LLC.PROGS78  is  preceded  by  a name  record 
which  is  identified  by  START  * OF  * appearing  to  the  left  of 
the  program  name.  The  WYLBUR  LIST  command  can  thus  be 


used  to  extract  a specific  program.  By  separately  listing  the 
name  records,  a convenient  table  of  contents  is  provided,  (see 
Appendix  A) 


2.2.2  Load  Modules 

The  load  module  of  each  source  program  is  stored  in  the 
partitioned  data  set  WEU2LLC.NAMPS78  on  magnetic  tape.(see 
\ppendix  B).  The  names  of  individual  members  conform  to  the 
program-name  records  in  WEU2LLC.PROGS78.  For  example, 
the  program  entitled  ARTIN.PLI  in  WEU2LLC.PROGS78  is  ac- 
cessed by  the  name  ARTIN  in  WEU2LLC.NAMPS78. 

2.3  Job  Control  Language  (JCL): 

All  JCL  required  to  execute  the  programs  of  the  MINI-NAMPS 
system  are  found  within  the  data  set  WEU2LLC.DDJOBS78  stored  on 
magnetic  tape,  (see  Appendix  C).  Each  set  of  JCL  contains  a start 
and  END  record  which  indicate  the  name  and  function  of  that 
particular  set.  The  name  is  of  the  form  DDPROGRAM  where 
PROGRAM  indicates  the  primary  program  executed  in  a particular 
job  stream.  This  name  is  also  used  as  a Subtask  title  in  this  manual. 
For  example,  to  execute  the  program  EBASELD,  use  the  JCL  set 
DDEBASELD,  and  the  procedure  described  in  DDEBASELD. 
WYLBUR's  LIST  command  can  be  used  to  list  all  START  cards  and 
provide  a convenient  table  of  contents. 

The  interactive  programs  (PLOTC,  DELTAQ),  which  run  under 
TSO  and  are  accessed  with  the  same  account  code  and  initials  as 
WYLBUR,  are  executed  by  typing  in  the  command:  "EXEC 
PROGNAME".  (no  JCL  is  required). 


NOTE:  Before  submitting  jobs  extracted  from  DDNPJOBS,  it  should 
be  verified  that  data  set  names  specified  on  output  DD  cards  do  not 
already  exist  on  the  FILE  packs. 


-4- 


I 

I 


2.4  Data: 


r 


The  current  data  is  stored  exclusively  on  magnetic  tape  (9 
track,  1600  bpi.  standard  label).  The  data  includes  the  IDMS  data 
base,  several  versions  of  enlisted  Inventory  and  Requirement  data 
bases,  and  various  other  data  necessary  for  control  and  definition. 

Throughout  this  manual,  references  are  made  to  Base  Identi- 
fication Codes  and  Common  MINI-NAMPS  Base  Formats. 
Descriptions  and  graphical  representations  of  these  terms  may  be 
found  in  Appendix  E (MINI-NAMPS  Terminology)  and  Appendix  D 
(Common  MINI-NAMPS  Data  Set  Layouts). 

NOTE:  All  program,  JCL,  and  data  set  names  are  detailed  on  the 

system  flow  chart  (see  Appendix  H). 


3.0  Delta  Subsystem 


3.1  General 

The  Delta  Subsystem  is  comprised  of  modules  exclusively 
concerned  with  processing  the  data  collected  by  the  Manpower-Data 
Collection  Forms  and  makes  use  of  the  Integrated  Data  Base 
Management  System  - IDMS.  The  functions  the  Subsystem  performs 
are:  loading  the  keypunched  data  and  extraction  from  the  MAPMIS  of 
additional  data;  editing  the  data  with  regard  to  completeness,  validity 
of  all  codes,  and  logical  consistency  of  codes  used;  loading  data  into 
the  IDMS  data  base;  interactive  query  and  flagging  for  inclusion  in  a 
selected  DELTA  (see  Appendix  G );  the  extraction  and  reformating  of 
various  inputs  to  other  subsystems;  the  production  of  a final  report 
for  implementation  of  all  increments/decrements  included  in  the  final 
selected  DELTA. 

3.2  Delta  Collection 

The  Delta  Collection  subsection  details  the  procedures  for 
loading  and  editing  requirement  changes.  The  Manpower  Change 
Forms  are  submitted  by  sponsors,  claimants,  and  OP-121;  the  data  is 
then  keypunched  onto  cards  and  if  specified,  additional  officer  and 
enlisted  requirements  are  extracted  from  MAPMIS  and  supplied  on 
magnetic  tapes. 

3.2.1  DDRAWLD 

The  Job  and  Its  Purpose: 

DDRAWLD  creates  a sequential  data  set  containing 
requirement  changes  from  the  Manpower  Data  Collection 
Forms  and  the  additional  extracted  requirements  from  the 
MAPMIS  system.  The  data  is  sorted  and  blocked  in  a format 
acceptable  for  editing  by  DDDELTEDIT. 
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//GZCCRD3  JOB  (WFU2, 3«6, R) , ' POM  70  N AMPS ’ 

/♦MESSAGE  0J796R, KS;0379F  G,  ?S 
//TNCRD  EX  LC  P'iM  = IFB'5ENER 
//SYS PR  TNT  DC  3YSOUT-A 
//3YSIN  DD  DUMMY 

//SY  >UT2  DD  DSN  = W51J2GIC.  PAWCRDS,,JNIT=PILE#  DT  S P = (N  r W , K EE P)  , 
//  VOL  =SER=FT LETS, DCE  = ( R EC F M = F5 , 1RECL=  90 , BLKST7  r= 8°  0)  , 

//  SPACE- (TRK#  (5,  1)  , ELSE) 

//SYSUT1  DD  * 

//*  PLACE  CARD  DECK  flEPF 
/* 

//50?T1  EXEC  L IT  • > ? T 

//SO?  TIN  DD  DSS’  = W?U2G7C.  RAKCFDS  ,DISP=OLD,UNIT  = rILI, 

//  V0L=SER=?7l7PS,DCB=  (L  R ECL  = 80  , BLKS 1 7 F=  8*0  , F FC  ?H  = F 3) 

//  DD  DSN  = R E N Ly  UAL.  HOP  102C, DISP=OLD,'JNTT=242<\ 

//  VOL= (PRIVATE, RET A IN, SEP  = 0379 6 5) , L AS  EL  = (1 ,31) 

//  DD  ?S  N=  ROFFQtl  AL . HOP  1 02C , DTSP  = OLD,  U NTT  = 2 420 , 

//  VOL  = (PRIVATE, RET AIN, SEP=C37966)  ,LA3EL=  (1,SL) 

//SO? TOUT  DD  DSN=WEU2G”C.RAWDELTA,UNIT=FTLE,DTSP-(NEW, 

//  VOL  = SER  = EILE05,DCP=  (RECEM=FB,  LRECL=80,  BLKSIZE=  31  2 

//  SPACF=  ( T R !<  , (20,5)  , RISE) 

//SYS IN  DD  * 

SORT  FTSLDS=  (2,23, A, 1 , 1,A)  , FORMAT =C H, STY E= ESC 00 

/* 


Data  Sets  Required: 

1)  //SYSUT1,  card  deck  with  Manpower  Data 

Collection  Form  changes. 

2)  //SORTIN 

a)  RAWCRDS,  data  set  created  from  card 

load. 

b)  RENLQUAL.UOP102C,  enlisted  requirement 

extract  tape  from  BUPERS. 

c)  ROFFQUAL.UOP102C,  officer  require 

ment  extract  tape  from  BUPERS. 

Preparation: 

1)  Extract  DDRAWLD  from  DDJOBS78 

2)  //SORTIN,  change  XXXXXX  and  YYYYYY  to  the 

appropriate  tape  serial  numbers. 
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Generated  Output: 


1)  //SYSUT2,  RAWCRDS,  a sequential  data  set  with 

changes  submitted  on  keypunched  cards. 

2)  //SORTOUT,  RAWDELTA,  sorted  sequential  data 

set  with  all  changes  submitted  on  cards  and 
magnetic  tapes. 


Delta  Edit  and  Load 

The  ID  MS  data  base  management  system  allows  the  user  to 
access  information  based  on  logical  relationships  established  between 
individual  data  elements  which  must  be  identified  by  valid  codes.  To 
insure  that  data  obtained  from  extract  tapes  and  Data  Collection 
Forms  is  free  of  any  errors  that  would  prevent  loading,  DDDELTEDIT 
processes  each  input  record  to  locate  and  identify  invalid  codes  and 
inconsistent  relationships.  The  reformatted  output  is  then  acceptable 
for  sorting  and  loading  into  the  data  base  by  DDELTLD. 


3.3.1  DDDELTEDIT 

The  Job  and  Its  Purpose: 

DDDELTEDIT  edits  and  reformats  for  loading  into  the 
IDMS  data  base  all  changes  (deltas)  submitted  via  Manpower 
Data  Collection  Forms  and  extract  tapes.  Each  record 
relating  to  the  quantity  and  quality  of  POM-78  increments  and 
decrements  is  examined  for  coding  and  relational  errors. 
Invalid  data  is  rejected  and  the  type  and  location  of  errors  are 
noted  for  corrections  and  resubmittal. 


//3ZCi)LT  JOB  (WEU2,  386,  3)  , ' POM  70  NAMPS' 

//RUNIT  IXEC  PLf  XCALL,NAME='  WEU2LLC. NAMPS78  ' , DI SX  = PDSO 05, 

//  PROGRAM=DELTFDIT, CORF=200K 

//GO. ERMESG  DC  DSN  = WEU2G ZC . ER MESG . DEL? EDIT , VOL=SER  = FI  LEO 5 , 

//  UNIT=?TLE,DIS?= (OLD, KEEP) 

//GO. CARDIN  DD  DS N = WEU2G7 C . R A WDELTA , VOL= SER  = FI  LEU  5, 

//  U NITRILE,  DISP=  (OLD,  KEFP)  , DCB=  (R ECF M=FE , LRrCL=8C , 3L K 51 ZE= 3 1 2C ) 

//GO.CARDOUT  DD  DS N = W EU 2G ZC. C AR DOUT . DEL? A. D AT  2, VOL=SE R = FT LE 45 , 

//  UNI7=F7LE,DI3P= (NEW, KEEP) , DC3  = (RRCFM=F,LRECL= 123, 

//  BLKSI2E=3072)  ,S?ACE=  (TRK,  (5,1)  ,PLSE) 

//GO.  3ADOUT  DD  DSN=WEU2GZC.  BA  DOUT  . DELTA.  DATE, VOL=SEP=FILE45 , 

//  UN  TT=FI LE, DISP=  (NEW, KEEP)  ,DCE=  (R EC? K = ? , L R FC I = 1 23 , 

//  BLKSIZE=307  2)  ,SPACE=  (TRK,  (2,1)  ,RLSE) 

//GO. Cl  AIM  DD  DSN=WEU 21 LC. NAM PS78. INDEX (CLAINDy) , VOI  = SE3  = PDSO C5 , 

//  ONIT=FILE,  DISP=  (SRP,  KEEP) 

//GO. GRADES  CD  DSN= WEU2GZC. P A YG RA DE . D517 EDIT , VOL=SER= FIL EC5 , 

//  UNIT=F7LE, DI5P=0LD 

//GO. OFF CODE  DD  DSN=WEU2LLC. NAMPS 78 . INDEX (DESINDXI) , VOL=SER=PDS005, 

//  UNIT=FILE,DISP=OID 

//GO. ENLCODE  DD  DSN^W2U2LLC. NAM PS 76. INDEX (R  ATINDXI)  , V OL  = S EK  = ?DSOO 5 , 
//  UNIT=FILE, DISP= (SHR, KEEP) 

//GO. SYSIN  DD  * 

OP RN  YP  DATE 

TITL  ***DELTEDIT  ROUTINE  - REJECTED  RECORD S*** 


Data  Sets  Required: 

1)  //GO.CARDIN,  RAWDELTA,  sorted  input  data  set 
(output  from  DDRAWLD  containing  requirement 
changes. 

2)  //GO.CLAIM,  CLAINDX,  index  of  valid  claimant  codes 
and  titles. 

3)  //GO.GRADES,  PAYGRADE.DELTEDIT,  index  of  valid 
paygrades  for  enlisted,  officer,  GS  civilian,  and  WB 
civilian. 

4)  //GO.OFFCODE,  DESINDXI  index  of  valid  officer 
designators,  including  obsolete  designator  codes  and 
replacement  codes. 


. 
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5)  //GO.ENLCODE,  RATINDXI,  index  of  valid  enUsted 
rating  codes  and  titles. 

6)  //GO.ERMESG,  ERMESG.  DELTED1T,  error  message 
data  set. 

Preparation: 

1)  Extract  DDDELTEDIT  from  DDJOBS78 

2)  //GO.CARDOUT.CARDOUT.DELTA. DATE, change  DELTA 
and  DATE  to  the  data  set  identification. 

3)  /GO.BADOUT,  BA  DOUT.  DELTA  .DATE,  change  DELTA 
and  DATE  to  the  data  set  identification. 

4)  //GO.SYSIN  OPRN  YR  DATE,  change  YR  to  the  current 
year  and  DATE  to  the  current  date. 

Generated  Output: 

1)  //GO.CARDOUT,  CARDOUT.DELTA  DATE,  sequential 
data  set  containing  valid  reformatted  requirements  in- 
put for  DDDELTLD 

2)  //GO.BADOUT,  BADOUT.DELTA.DATE,  sequential 
data  set  containing  all  invalid  records. 

3)  //GO.SYSOUT,  SYSOUT=A,  report  containing  type  and 
location  of  errors  in  the  input  data  set  RAWDELTA. 


f 


I 

I 
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Data  Set  Layouts: 


PROGRAM: 

DDDELTEDIT 

LRECL  - 80 

INPUT  FILE: 

GO.  CARDIN 

DSORG  = PS 

A - CARD  TYPE 
B - SPONSOR  CODE 
C - CLAIMANT  CODE 
D - REASON 
E - SPP  NUMBER 
F - INC /DEC  SIGN 
G - INC /DEC  NUMBER 
H - AFF  ACTIVITY  #1 
I - INC /DEC  TITLE 
J - PRIORITY 
K - S/S  CODE 

L - PROGRAM  ELEMENT  # 

M-  UIC  #1 
N - CHANGE  TYPE 
O - USING  ACTIVITY 
P - START  YEAR 

Q - AFF  ACTIVITY  #2  (IF  APPLICABLE) 


A - CARD  TYPE  - 3 

B - IDENTIFICATION  INFORMATION 
(SEE  CO.  CARDIN  CARD  TYPE  // 1 ) 

C - OEGW 

D - BILLET  SEQUENCE  NUMBER 
E - RATING/DESIGNATOR 
V - PA YGRADE 
G - PRI/NOBC/NEC 

Hj  -Ilg  - INCREMENTS/ DECREMENTS  FOR  FISCAL  YEARS  77-82 
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Sample  Output: 


ALL  RICCI.  IS:  CLM'.S’POI  6710C014O0  ARI  INVALID 

hf.li:  INVALID  1 SC/D!  C CURLER 

• •♦♦t.’lRCft:  INVALID  V'lIORlTY 

••••LHMOR:  US  1 70  ACTIVITY  NOT  EQUAL  TO  APF  ACTIVITY  POR  CHANGE  TYPE3 
••••LkNOR:  INVALID  START  YEAR 

**************************************************************************************** 
CARD  2 IS  INVALID 

CARD  2 1NFOFHATIDN:  20 S7GSPP0 1-OG267 18002 10 V07777 

••••ERROR:  1U  IHPORHATION  DOES  NOT  BATCH  CARD  TYPE  1 

**************************************************************************************** 
CALD  "*  POR  THE  FOLLOWING  ACTIVITIES  IS  REJECTED 
ACTIVITY:  b7 1LL02100 

ACTIVITY:  66  180. 62  11 1 

C L hi*  3 1 NFOLP ATION : 3057GSPP0 1-00 3b7 180 02 1002  4100  058346*000  -2-2  -2  -2  -2 

••••ERROR;  ID  IHPORHATION  DOES  NOT  HATCH  CARD  TYPE  1 

« ******************************  ********************************************************* 
CARD  3 POR  THE  POLLOUING  ACT1VITIPS  IS  BEJECTBD 
ACTIVITY:  67  I6O02 ICO 

ACTIVITY:  6818002111 

CARD  3 IKF0ESATI01:  30S7C-STP0 1-00267 10002100 1 1311  033290*000-1  -1  -1  -1  -1 

••••ERROR:  ID  IHPORHATION  DOES  HOT  HATCH  CARD  TYPE  1 . 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦■♦♦«♦ 
CARD  3 POR  THE  POL LOU I NG  ACTIY1T1KS  IS  REJECTED 
ACTIVITY:  CSGN  A 

ACTIVITY:  CSGN  U 

CARD  3 1 RECREATION:  30 3oOOTHO 2*00 1CSGN  A 2 QH  08  *000*000*000* 1 *1  *1 

• * ••PLhOK : INVALID  DESIGNATED  RATING 

«4*<**««*«4*«4**««4*««««i*44*«t*«»M«*«****4«***«*t4*«*«*«*«***«*********t********4***** 
CARD  3 POR  THE  POLLOUING  ACTIVITIES  IS  REJRCTKD  ' 

ACTIVITY:  6718002100 

CARD  3 INFORMATION:  30570SPPO 1-00367180021002  6800E18  8346*000-1  -1  -1  -1  -1 

••••ERROR:  INVALID  PAYGRADE 
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3.3.2  DDDELTLD 


The  Job  and  Its  Purpose: 

DDDELTLD  (COBOL)  is  the  program  which  loads 
all  changes  to  the  1DMS  data  base  using  the  output  from 
DDELTEDIT.  Input  records  are  sorted  by  mission 
sponsor  and  increment/decrement  number  before  being 
loaded  according  to  a predefined  schema. 


//JJJEL 

//sop: 

//LSOPT 

// 

// 

//L30R7 

// 

//  L S 0 B T 
//DELTL 

//*  ** 

//* 

//*  ** 

//STEPI 
//NAM PS 

//sysoii 

//IDMSJ 
//i  t;p  i l 
// 


JCB  (KFU2,  396, C,  3000,30)  , 'POM  73  N AMPS'  ,M3GLEV£L=  (2,0) 
LTTSPT,PEGI0N=2CCK 

TTN  DD  DSN=WEU,’JJJ  . CARDOUT.  DELTA.  I.ATE,  UNTT=FTLE, 
EISP=OLD,DCE=(L&ECI.=  128,BLKSI2E=3C72,FECFM=FB)  , 

VCL  = SFR=  FT LF4S 
. SORTOUT  DD 


EX 
FX5C 
. SOP 


.SYS 
D E 

***  * 
**** 
**** 

T 3 
DB 

r 

PNL 


DSN=*. SO HTTP, UNI T= FILE, VOL= S E R=F I L 24 5 , 
DISP=  (OI  D,  KEEP)  , DCE>  = *.  SORIIN 
IN  CD  * 

X EC  PGM  = DELTLD, PEGION=3hOK 


* 

* 

* 

DD 

DD 

DD 

DD 


SJ 


EXECUTE  DELTLD 


**  * * ***  * * * 

********** 

DSN-WEU2I LC. N AMPS 78 ,UNIT=FTL  E, VC L=SEF= P DS 008 , DI SP=SH 7 
DSN=VEU2JJJ. N AMPSDB,UNIT=PILF, VC L =SEP = F IL E4 3 , DISP=OLD 
SYSOUT=  A, DCB=  (LP ECL=1 3 3 ,BLKSIZS= 13  3) 

DUMMY 


u V L'  mu  i 

DD  DSN =WEU2JJJ.CAPDO"T. DELTA . DATE, UNIT=FILF, VOL=SER=FILE45 , 
D T S P=  SH  7 


Data  Sets  Required: 

1)  //LSORT.SORTIN.CARDOUT.DELTA.DATE,  output 

from  DDDELTEDIT, 

2)  //NAMPSDB,  NAMPSDB,  the  NAMPS  IDMS  data  base 

3)  //INFILE,  CARDOUT.DELTA.DATE,  output  from 

DDDELTEDIT  after  sort  operation. 
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Preparation: 


1)  Extract  DDDELTLD  from  DDJOBS78 

2)  //LSORT.SORTIN,  CARDOUT.DELTA.DATE,  change 

DELTA  and  DATE  to  appropriate  data  set  identifica 
tions. 

3)  //INFILE,  same  as  step  2 
Generated  Output: 

1)  //LSORT.SORTOUT,  CARDOUT.DELTA.DATE,  sorted 

output  from  DDDELTEDIT. 

2)  //SYSOUT,  SYSOUT=A,  list  of  all  records  loaded  into 

IDMS  data  base. 

3.4  DeltaQuery/Select 

The  Delta  Query/Select  subsection  of  Delta  Subsystem 
consists  of  two  programs  which  interface  with  the  MINI- 
NAMPS  IDMS  database.  The  DELTAQ  program  allows  the  user 
to  interactively  query  the  data  base,  and  a batch  version, 
DELTAQB,  is  used  when  large  amounts  of  output  are  expected 
or  immediate  results  are  not  necessary. 

3.4.1  DELTAQ. CLIST 

The  Job  and  Its  Purpose: 

DELTAQ. CLIST  allows  the  user  to  interactively 
query  the  contents  of  the  IDMS  database.  The  user  may 
query  a specific  delta  for  billets  which  meet  specificied 
criteria  and  to  array  the  output  in  one  of  several  ways. 
For  each  query  command,  only  those  records  which 
meet  delta  restrictions  as  well  as  range  requirements 
will  be  considered. 
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NOTE:  The  user  should  be  familiar  with  interactive 

command  language  used  in  the  TSO  operating 
environment.  A detailed  explanation  of  all  commands 
required  to  execute  DELTAQ.CLIST  is  found  in  POM-78 
DELTA  QUERY-USER'S  GUIDE  in  Appendix  G. 

The  program  DELTAQ  is  in  load  module  form  and 
is  a member  of  the  load  library  WEU2LLC.NAMPS78. 
LOAD;  the  source  code  for  DELTAQ  is  found  in 
WEU2LLC.  PROG78. 


FP  EEA  x-L 
TEPM  LIN 


ALLOC 
ALLOC 
ALLOC 
ALLOC 
ALLOC 
ALT  OC 
ALLOC 
ALLOC 
ALLOC 
ALLOC 
CALL' to  EH 
FREEALL 
WHEN  SYS 
FND 


E5 

T v 


: le 


FI 

r t 

FI 
FI 
FI 
FT 
c - 
r r 


L E 
LE 
I E 
LE 
LE 
L c 
LE 
21 


IZP  («  1) 

( N A M TS  D 2 
(IDMSJEN 
(?  POIND'- 

rT7!) 

(UMSO) 

(SIDS) 

(OJPNL) 

( PR  NTF) 
(SY3TN) 
(SYSPRTN 
LC . NAMPS 


L) 


DS  ( 

i v 2” 

2JJ  J 

.NAMPSDB • 

/KEY) 

S 2 R 

VOL  r 

r I L F 4 1 

3L 

(6r>  1 

2)  S 

PA C^ (900, 

ICO) 

NEW 

DA  ( 

' KEU 

2 LLC 

. NAMPS78  . 

IN  D£v 

(SPC 

IINDY)  ' 

1 /KEY) 

DA  ( 

• W FrJ 

2 J J J 

•TITLES'/ 

KEY) 

SHF 

VOL  (F- 

’ LEGS) 

DA  ( 

• KEU 

2JJJ 

•QMSO'/KE 

V) 

SHP 

VOL  (F’ 

' LE05) 

DA  ( 

’ WEU 

2JJJ 

•SIDS'/KE 

Y) 

SHS 

VOL  (FI 

[ LSOS) 

DA  ( 

• KEU 

2 J J J 

• QJRNLVK 

FY) 

MOD 

VOL (F” LEGS) 

DA  ( 

' WEU20JJ 

. PPNTF'/K 

EY) 

MOD 

VOL  (?' 

’ LEO  5) 

DA  (*) 

T)  DA  (*) 

78 (DELTAS) ’/KEY 


PC  (Ef)  FIT)  SUBMIT  L ) DELTA  QB  HOLD 


slip  VOL  (PD300S) 


Data  Sets  Required: 


1)  ALLOC  FILE  (NAMPSDB),  NAMPSDB,  IDMS 

database. 

2)  ALLOC  FILE  (SPOINDX),  SPOINDX,  index  of 

valid  program  element  sponsor  codes  and 
titles. 
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3)  ALLOC  FILE  (TITL),  TITLES,  sequential  file 

containing  header  titles  for  terminal  display. 

4)  ALLOC  FILE  (SIDS),  SIDS,  sequential  file  con- 

taining valid  mission  sponsor  codes  with 
increment/decrement  numbers 

Preparation: 

DELTAQ.CLIST  is  executed  in  the  TSO  operating 
environment  and  therefore  requires  cataloging  certain 
data  sets  prior  to  execution.  A detailed  explanation  of 
this  procedure  is  found  in  the  data  set 

WEU2GSX.QUERY. RESTORE  on  disk  file  07. 

Generated  Output: 

1)  ALLOC  FILE  (QJRNL),  journal  containing  date, 

time,  and  commands  used  in  each  terminal 
session. 

2)  ALLOC  FILE  (PRNTF),  sequential  file  with  PRNT 

command  information  accessed  in  batch  version 
of  delta  query  (DELTAQB) 

3)  ALLOC  FILE  (SYSPRINT),  terminal  session  output 

See  Sample  Session. 
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RECORD  TYPE  DATA  ITEMS  AVAILABLE 


i I » 


'5  l'o  10  io  20  30  30  <10  <10  OO  00  GO  GO  10  75 


PROGRAM:  DELTAQ 


LRECL  = 80 


FILE:  QJRNL 


DSORG  = PS 


A - LEFT  JUSTIFIED  IMAGE  OF  INPUT  COMMAND  (SEE  APPENDIX  G) 


RECORD  1 


FILE:  PRNTF 


DSORG = PS 


RECORD  1:  A - DATE 

B - FILLER 
C - TIME 
D - FILLER 
E - DELTA 
F - BASE  (OEGW) 

G - FILLER 
H - ILOC  VARIABLE 
I - ENLISTED  RATING  (RDS-EHOLD) 
J - RANG  VARIABLE  (2.5)  '9999' 


RECORD  2:  A 


LEFT  JUSTIFIED  IMAGE  OF  'PRNT'  COMMAND 
(SEE  APPENDIX  G) 
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3.4.2 


DDDELTAQB 

The  Job  and  Its  Purpose: 

DDDELTAQB  is  the  batch  version  of  DELTAQ 
and  is  designed  to  process  requests  specifying  large 
amounts  of  output  or  results  which  are  not  required 
immediately.  DELTAQB  is  initiated  from  the 
interactive  session  using  the  "PRNT"  command.  Upon 
entering  the  command,  syntax  and  range  checks  are 
made.  The  command,  along  with  other  necessary 
information,  is  written  to  a file  and  is  accessed  when 
the  batch  program  executes. 


I 

i 

I 

I 


//JJ.TPRNT  J 03  (KEU2,  386, 3)  , 'POM  78  NAWP5,,M:jOIEVEL=  (2,0) 

/♦ROUTE  PRINT  FEMOTE70 

/♦NOTIFY 


//*  ******* 

//*  ******* 

//*  ******* 

//DEITAQ3 

EXEC 

//STEPLIB 

DD 

//NAMPSDB 

DD 

//SYSPRINT 

DD 

// SYSOUT 

DD 

//SYSUDUMP 

DD 

//IDMS JR  NL 

DD 

//QJRNL 

DD 

//SPOINDX 

DD 

// 

//TITL 

DD 

//PRNTF 

DD 

//SY3IN  DD 

* 

********** 

DFITAQ  BATCH  PRNT  ROUTINE  ********** 

PGM=DELTAQB, REGI0N= 180K 

D5 N = W £U2 LL C . NAMPS^S, UNIT=FI LE, VOL=SER=PDS005 , DISI=SH P 
CSN=WEU2JJJ.  NAMPSDB,  >JNIT  = FIL",  VOL=SFR= FTLE4  3 ,D IS F-SH F 
S YS0'JT=  A 

SYSOUT^A, DCB= (LR  ECL=  1 3 3,  BLKSIZE=  1 3 3) 

DUMMY 

DUMMY 

DUMM  Y , DCE  = ( LRSCl= 80 , 3LKSIZ E= 3 1 20 , R SC? M= F3 ) 
DSN=WEU2LLC. NAMPS78. INDEX (SPOINDX) ,UNIT=FILE, 

DI SP=3HR , VOI =SEP=PD3008 

DSN  = WEU2JJJ.  TITLES, UN IT=  FILE,  VOL  = SEF  = ,?IL EOS,  DISP=SHE 
DSN=WEU2JJ  J.  PRNTFfUNIT^ILS,  V0L  = S ER=  FI  LEO 5,  DIS?=CLD 


Data  Sets  Required: 


1)  //NAMPSDB,  NAMPSDB,  IDMS  data  base 

2)  //SPOINDX,  SPOINDX,  index  containing  valid 

sponsor  codes  and  titles. 


3)  //TIT L, TITLES,  sequential  file  containing  header 
titles  for  output  display. 
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4)  //PRNTF,  PRNTF,  sequential  file  with  PRNT 
command  information. 

Preparation: 

1)  Extract  DDDELTAQB  from  DDJOBS78 

2)  Insure  that  DELTAQ.CLIST  was  executed  and 

that  PRNT  commands  specifying  information 
to  be  retrieved  from  the  ID  MS  data  base  were 
issued. 

Generated  Output: 

1)  //SYSOUT,  SYSOUT=A,  date,  time,  delta  base, 
and  the  command  line  prefixed  to  each  set 
of  output. 
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3.5  Delta  Extract 


The  Delta  Extract  subsection  of  Delta  Subsystem  is  a 
set  of  programs  designed  to  retrieve  information  from  the 
ID  MS  database  for  special  purpose  reporting  or  formatting. 
Programs  in  this  subsection  provide  the  primary  input  for  the 
Support  and  Enlisted  NEC  Subsystems. 

3.5.1  DDDELTEXT 

The  Job  and  Its  Purpose: 

DDDELTEXT  extracts  billet  information  for  a 
specified  delta  from  the  ID  MS  data  base.  Information 
consists  of  billets  by  fiscal  year  and  paygrade  for  unique 
sponsor,  rating,  and  program  element.  The  output  is 
processed  by  the  Support  Subsystem  which  adds  required 
support  billets. 

//JJJDEXT  JOB  (WEU2, 33f  ,C,  1*0)  , • POM  78  N A KPS  • , MS51  EV  E T.  = (2  , 0) 
//DELTEXT  Z*EC  Pc H= DEL? EX T , P EG  ION  = 1 80 K 


//*  *******  ********** 

//*  *******  EXTRACT  DATA  BASE  DELTA  ********** 

//*  *******  ********** 


//STEP! IB  CD  DSN  = WEU  2L LC . NAKPS78 ,UNIT=F~LE, VOL=SEF =P DS908 , DISP=SHF 

//NAKPSD3  DD  DS N = WSO 2J JJ . N A MPSDB , UNIT=F IL E, VOL  = SER  =*TLF4 3 , DISP=SHP 

//TDKSJRNL  DD  r'JKMY 

//SYSOUT  DD  SYSO(JT=A 

//SY  SPRINT  DD  SYSOUT=A 

//SYSIN  DD  * 

//OUTFILE  DD  DSM=WEB 2JJ J . DEI TA 0 1 , UN IT=FILE, VCL=SER =FIL E28 , 

//  DCB=(RECFM  = F3#LPECL=231,BLKSTZE=12936)  , 

//  S P ACE= (TRK, (99,9)  ,RLSE) , DISP= (OLD, KEEP) 

Data  Sets  Required: 

1)  //NAMPSDB,  NAMPSDB,  the  NAMPS  IDMS  data 

base. 

2)  //STEPLIB,  IDMSLIB,  load  module  library  containing 

DELTEXT  program 
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Preparation: 

1)  Extract  DDDELTEXT  from  DDJOBS78 

2)  //OUTFILE,  DELTAXX,  change  XX  to  the  delta 

number  being  extracted 

3)  //SYSIN 

CNTR  XX,  change  XX  to  the  delta  number 
Generated  Output: 

1)  //OUTFILE,  DELTAXX,  extracted  billet  information 
used  by  Support  Subsystem. 
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A - DELTA  NUMBER 
B - OEGW 

C - PROGRAM  ELEMENT  NUMBER 
D - SPONSOR  NUMBER 
E - RATE  ABBREVIATION 
F - FISCAL  YR  X GRADE  ARRAY  (6x9) 


3.5.2  DDFINREP 


The  Job  and  Its  Purpose 

DDFINREP  produces  a report  displaying 
rating/designator,  paygrade,  NEC/NOBC,  and  billets  for 
approved  increments  and  decrements  defined  by  the 
selected  delta.  An  optional  report  will  display  only 
total  requirements  for  approved  NARM  titles.  Activity 
titles  and  billet  sequence  codes  are  supplied  by  mission 
sponsors  and  quality  maybe  adjusted  to  balance  with 
approved  NARM  totals.  DDFINREP  is  used  by  OP-103 
to  update  MAFIOSO  and  by  OP-lOO  to  update  the 
MAPMIS  billet  file. 


//G ZCREP  JOB  (HEU2, 386, C,  100,  30)  , 'POP.  73  N AMPS ' , MSG L2VFL=  (2 , 0) 

/*  NOTIFY 

//*  *******  ********** 

//*  *******  f$  EXECUTE  FIN  REP  ********** 

//*  *******  ********** 

//FINRE?  EXEC  PGM  = *1 N REP , R EGION=3 00 K 

//STFPI TB  DD  PSN  = WEU  21 LC. NAMPS78 ,UNIT=?TLE, VCL=SFR=PDS908, DISP=SH3 
//NA  (IPS  DB  DD  DSN=WSU2JJJ.  NAMPSDB, UNTT=FTLE, VOL=SFR= FTLE43 , 

//  DISP=SHR 

//SYSUDIMP  DD  DUMMY 
//IDMSJRNL  DD  DUMMY 
//SYS 0»JT  DD  SYSOUT=  A 

//SYSPRINT  DD  SYS OU?= A, DC B= (RECFM=FB A , LR EC L= 1 3 3 , BLKSI ZE= 1 3 30) 

//SPOINDX  DD  DSN=WEU2LLC.  NAMPS78.  INDEX  (PESTNDX)  , DI S P = SHR  , UN  IT  = FT  I. E , 
//  VOL  = SER  = PDS00  5,DCB=  (FECFM  = FE,  LRECL=80,  BL KS  1 2 E=  3 1 2 0) 

//SPPINDy  DD  DSN  = WE!!2GZC.  NARMSID,  DISP  = SHP,  UNIT=FILE, 

//  VOL  = SER  = *,ILE08,DC3=  (RECFM=FE,  LRECL=80,  BLKS I ZE-3 1 2 0) 

//RATINDX  DD  DSN=WEU2LLC. NAMPS78. INDEX (RATINDXI) , DISP=SHR,UNIT=FILE, 
//  VOI=SER=PDS005, DCB= (R EC FM=F B , LR ECI = 9 0 , BL KS I ZF= 3 1 2 0) 

//SYSIN  DD  *,DCB=BLKSIZE=90 

CNTIOE 

DELT20 

SPPN09  09 
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Data  Sets  Required 

1)  //NAMPSDB,  NAMPSDB,  IDMS  database 

2)  //SPOINDX,  PESINDX,  index  containing  valid 

program  element  sponsor  codes  and  titles. 

3)  //SPPINDX,  NARMSID,  sequential  file  containing 

approved  NARM  mission  sponsor  codes, 
increments/decrements,  and  titles. 

4)  //RAT1NDX,  RAT1NDX1  index  of  valid  rating 

codes  and  titles. 

Preparation: 

1)  Extract  DDFINREP  from  DDJOBS78 

2)  //SYSIN,  change  control  cards  to  indicate  type 

of  report,  delta  number,  and  range  of  mission 
sponsors. 

a)  CNTL  Parm  Card,  insert  type  of  report 

(col  6) 

'O'  = full  report 

'1'  = totals  by  NARM  titles 

b)  CNTL  Parm  Card, insert  lines  control 

character  (col  8) 

'O'  = do  not  skip  lines  when  quality  > 1. 

'1'  = skip  lines  when  quality  > 1. 

c)  SPPN  Parm  Card,  insert  range  of  mission 

sponsors  to  be  included  in  the  report. 

3)  //SYSPRINT,  SYSOUT=A,  implementation  report 

in  specified  format  (See  Sample  Output) 
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T0T4L  ENLISTED  FOR  SPP*  08  2782  2742  2742  -1658  -1658  -1658  -16'.6 


ACTIVITY  CODE:  C306-0161-00  ACTIVITY  KATE:  OIC:  07161 


TOT AL  CVLISTED  FOB  ACTIVITY  0306-0161-00  -0017  -0017  -0017  -0017  -0017  -0017  -0017 


3.5.3  DDNECDMP 


The  Job  and  Its  Purpose: 

DDNECDMP  is  an  extracting  and  reformatting  program 
designed  to  output  a data  set  used  as  a primary  input  to  the 
Enlisted  NEC  Subsystem.  Information  is  retrieved  from  the 
MINI-NAMPS  IDMS  database  by  rating,  paygrade,  NEC,  billets 
count,  and  sea  shore  code.  The  reformatted  records  are  stored 
in  file  NECDELXX  for  subsequent  processing. 


//GSX  NEC  JOB  (W2U2, 386,  C,  1*0,30)  , 'POM  78  N A K?  S ' , M 3G 7.  E V ~ L = ( 2 , C ) 

//GO  £7  SC  PLI  XCALL,  NAME='  WFU2LLC.  NAMPS76  • , DT S K = PDSO ? 5 , 

//  ?FOGPAM^NECDMP,CORE=2C0K 

//*  *******  ************ 

//*  *******  $ J EXECUTE  ************ 

//*  *******  ************ 

//STSPLI5  DD  DSN=WE'J2LLC.  NA  M?S7b,  UN IT=FI  LE , VOL  = SER=  ? DS003  , D IS ?=  SH ?. 
//NAXpSDB  DD  DSX-HEV2JJJ. N A MPSDB , VN IT=P TI F , VOL = SER= FII 7 4 3, DISP=SHR 
//FHSC  DD  DSN=KEU2GSX.NECDELvX,UNTT=FILE,VOL=SEF=FILE2R,DTSP=(NEK 
//  DC3=  (RECFM=?3,LRFCL=53,ELKSIZE=3493)  , 5 P ACE= (TR K , (50,5)  ,RLS 

//TDXSJRNL  DD  DUMMY 
//SY SPRINT  DD  SYSOUT=  A 


% t».l 


Data  Sets  Required: 

1)  //NAMPSDB,  NAMPSDB,  MINI-NAMPS  IDMS  data 
base. 

Preparation: 

1)  Extract  DDNECDMP  from  DDJOBS78 

2)  //FNEC,  NECDELXX,  change  XX  to  the  delta  number. 

3)  Submit  a Class  C job  - execution  time  = 100. 

Generated  Output: 

1)  //FNEC, NECDELXX,  extracted  NEC  information  within 

delta  XX  formatted  as  input  for  Enlisted  NEC  Subsystem. 

Data  Set  Layout: 


PROGRAM:  NECDUMP  LRECL  = 53 

OUTPUT  FILE:  FNEC  DSORG  = PS 


A - ACTIVITY 
B - RATING 
C - PAYGRADE 
D - NEC 

E - BILLETS  (Array  of  6 years,  each  year  contains  5 characters) 
F - SEA  SHORE  CODE 
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3.6  DB  Delta  Bypass 


The  Delta  Bypass  subsection  is  a set  of  procedures  which  allow 
the  users  of  MINI-NAMPS  78  the  alternative  of  extracting, 
formatting,  and  summarizing  data  within  a specified  delta  without 
accessing  the  IDMS  database.  Due  to  the  time  constraints  involved  in 
reloading  the  data  base  in  the  event  of  a sudden  System  failure,  this 
subsection  was  provided  as  a backup  procedure.  Thus  the  functioning 
of  other  MINI-NAMPS  subsystem  need  not  be  degraded  because  of 
DATA  BASE  problems. 

3.6.1  DDBPSELCT 

The  Job  and  Its  Purpose: 

DDBPSELCT  performs  the  same  function  as 
DDDELTEXT  while  by-passing  the  IDMS  MINI-NAMPS  data 
base.  Mission  sponsor  codes  with  associated  increment/decre- 
ment numbers  for  a specified  delta  are  contained  in  a 
sequential  input  file.  Records  with  matching  sponsor-inc/dec 
combinations  are  subsequently  extracted  from  the 

CARDOUT.DELTA.DATE  file  for  reformatting  by 

DDBPFORMAT. 


//LI.CBPASS  JOB  (WKU2,  39G, B, 30,  *0)  ,'  POM  7a  NA UPS  • , K5GLFVFL= (2,0) 
//STEPO  1 EXEC  l*  on  SO!' T,  REGION  - 100  K, P A HM ' ’ S IZP- M AX • 

//SQRT1  N DD  DSN=KKU2JJJ.C  AK  DOUT.  D El.  I A.  DATE,  VOL=SER= PTLE44, 

//  1)1  i:l»=  (SHE,  KEEP)  , UNIT"  FILE,  000=  (R ECF M - PH , I.R ECl=  1 2ft , IUKSIZE  = 3072) 

//  DD  DSN  = U!:U2JJJ.CARDOUT. DELTA. DATE,  VOL  SEH  - El  LE4  5, 

//  DI5P=  (SHR.KEFP)  ,UNIT=FI  LE,  !)CB  = (RECFM  = r B,  LRECL-  1 28 , BLKS IZE=3072) 

//  DD  DSN=K”U2J  JJ.  CAR  DOUT.  DELTA. DATE,  VOl  = 5EH=  *11544, 

//  DISP=  (S  HR,  KEEP)  , rj  N I T = PILE,  DCD=  (HKCFH  = PB,LRFCL=  1 28,  DLKSTZE--3072) 

//  DD  DSK-WFU2JJJ. CARDOUT. DELTA. D A 7F , VOL = 5ER= PI LE44 , 

//  DISP-  (5HR,  KEEP)  ,UNIT=FILF,  DC0=  ( R ECFft  = FB,  LRECL=  1 28 , BLKSIZE=3072) 

//  DD  DSN  = K l.’U2  J JJ.  C AR  DOUT.  DELTA. DATE, VOL -SER  - FI  1.E4  4, 

//  DISP-  (SIIR,KKEP)  , UNIT=  FT  LE,  DCB-  (RECFM  = F B, LHKCL^ 1 28 , B LKSIZE-3072) 

//  DD  DSN=KLU2JJJ.  CAR  DOUT.  DELTA.  DATE,  VOL  = S2R=  FI  LE4  4 , 

//  DISP-  (SHR.KEFP)  ,tJNIT-FILF,  DGB=  (RECFK-F B, I RSCL= 1 28 , BI  K5IZE=3072) 

//  DD  DSN-WEU2JJJ. CARDOUT. DELTA. DATE, VOL=SER=FLLE45, 

//  DISP=  (SHR,K1ER)  , U N I T = F T 1 F,  DCB=  (RECFM^TB , LPECl- 1 28 , BE KSIZE-3072) 
//SORTOUT  DD  DSN=FF.  DB  ASE,  DISP-  (NEW,  PASS,  DELETE)  , Uli  I7  = S YSDA  , 

//  DCB-  (3  EC  FK=FB, LR ECL- 1 2 8 , BL KSIZE=  1 292 8)  ,SPACE= (TRK,  ( 1 50 , 10) , RL5E)  , 
//  SEP-  (SOH7IN) 

//SORTLIB  DD  DSN  = fSORTLIB, DISP=  (SHR.PASS) , SEP=  (SORT1 N , SORTOUT) 
//SORTER 01  DD  UNI T = S Y SD A , SP ACF=  (C YL  , ( 1 0)  , , CONT IG) , 

//  SEP=  (SORT  I N, S OH  TOUT, SOB TLX  B) 

//SORTWK02  DD  UNIT  = SY SDA , SP ACE=  (C YL ,( 10 ),, CONTIG) , 

//  SE1*=  (SORTIN',  SORTOUT,  SORTL I B.SORTKKOI) 

//SORTWK  03  DD  UNIT  = SYSDA, SPACE=  (CYL,  ( 10) ,, CONTIG) , 

//  5EP=  (SORTIN, SORTOUT, SORTLIB, SOHTWKO 1 , SORTWK02) 

//SYSOt'T  DD  SYSOUT  = A 
//SYSUDUMP  DD  DUMMY 
//SY5IN  DD  * 

SORT  FIELDS-  (8, C , A)  , FOR M AT-CH , FILSZ-E20000 
END 

//STEP02  EXEC  PGM= SORT, B EGION- 300 K, P ARM= • SIZE=M AX • 

//SOBTIN  DD  DSN=WEU2LLC. SID. INDEX, DISP= (SHR, KEEP) ,UNIT=FILE, 

//  VOL  = SER=PIIE0G,DCB= (RECFM-FB, LREC L=8 0, ELKS  I ZE=3 1 20) 

//SORTOUT  DD  CSN=r.CI  NCDEC  , DISP=  (N  EW  , PASS  , DELETE)  ,UNIT=S  YSDA  , 

//  DCB  = *. SORTIN, SPACE-  (TRK  , (10, 1) , BLSE) 

//SORTLIB  DD  DSN-C SORTL IB , D ISP-  (SHR , PASS) , SEP= (SORTOUT) 

//SORT W KOI  DD  UNIT-SYSDA, SPACE- (CYL,  (10)  ,, CONTIG) , 

//  SEP= (SORTOUT, SORTITB) 

//SORTWK02  DD  UNT T=SY SDA, SP ACE-  (CYL ,( 10)  ,, CONTIG) , 

//  S EP=  (SORTOUT, SOBTLIB, SORTWK01) 

//SORTWK 0 3 DD  UNIT-S YSDA , SP ACE- (C YL ,( 10)  ,, CONTIG) , 

//  SEP-  (SORTOUT, SORTLIB, SORTKK01 .SORTWK02) 

//SYSOUT  DD  SYSOUT-A 
//SYSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  FIEL  DS=  (1,-6,A)  , FORMA T-CH , FILSZ-E 1 00 0 
END 

//STEP 09  EXEC  DSSCB, NAM E= • W EU2LLC . DELTA XX. EXTRACT' , DI SK-FILE3 2 
//STEP03  EXEC  C3LACALL, NAME-' WEU2LLC. NAMPS78' , DISK-PDS005, 

//  PROG RAM=BPSELCT, COR E=80K 

//GO. DBASE  DD  DSN-58DBASE , DISP- (OLD , DELETE) , U NIT-SYSDA , 

//  DCB=*.STEP01. SORTOUT 

//GO. INC  DEC  DD  ESN-S&INCDEC , DI SP- (OLD, DELETE) , U NIT-S YSDA, 

//  DCB-*. STEP02. SORTOUT 

//GO.SBASE  DD  DSN -WEU 2LLC. DELTAXX . EXTRACT, DISP-  (NEK, KEEP) ,UNIT=FILE, 
//  DCB- (RECFM=FB,LR5CL=12B,BLKSIZE=3072) , VOL=S ER-FILE32 , 

//  SPACE-  (TRK,  (100,  10)  ,RLSE) 

//GO. SYSIN  DD  * 

XX  WHERE  'XX'  IS  DELTA  NUMBER 
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Data  Sets  Required: 

1)  //SORTIN, CARDOUT.DELTA. DATE,  output  from  DELTEDIT 

containing  requirement  changes 

2)  //S0RT1N,SID.INDEX,  file  containing  mission  sponsor 

codes  and  increment/ decrement  numbers  for  a 
given  delta. 

Preparation: 

1)  Extract  DDBPSELCT  from  DDJOBS78 

2)  //SORTIN,  CARDOUT.DELTA.DATE,  change  DELTA 

and  DATE  to  appropriate  identification  code. 

3)  //STEP09  . DELTAXX,  EXTRACT 
//GO.SBASE  , DELTAXX.  EXTRACT 
//SORTIN  , DELTAXX.EXTRACT 

change  XX  to  the  appropriate  delta  number. 

Generated  Output: 

1)  //GO.SBASE,  DELTAXX,  EXTRACT,  extracted 
records  for  delta  XX 


3.6.2  DDBPFORMAT 


The  Job  and  Its  Purpose: 

DDBPFORMAT  reformats  the  DELTAXX. EXTRACT 
data  set  created  by  DDBPSELCT.  The  reformatted  data  is 
stored  in  a sequential  file  and  is  referenced  by  the  Support 
Subsystem. 


//LLC3PFOR  JOB  (Vi  EU2 , 366, 3,  30)  , 1 POM  76  NAMPS' 

//STEPOS  ZX  EC  FGM=SORT, FFGTON= 300K, PARM= ' SIZF=MAX' 

//SO?  TIN  DD  D5N=’WEU2LLC.  DELTAXX  .EXTRACT,  DI  S?  = (SHP,KE2P)  , UN  IT=?I  IS, 

//  DCB=*. STEP03. GO. SBASE , VOL=SEP=eTLE32 

//SORTCUT  DD  DSN=S&S3ASE5,DISP=  (N  EW  , P AS  3,  D ELSTE)  , UNTT=S  YSD  A , 

//  DC?=*. STFP01 . SOPTOU T, SPACE=  (TPK , (100,10)  , RLSF)  , 

//  SEP=  (SORTTN) 

//SORT  LI H DD  DPN-6503TLIF , DI  SP  = (OLD, PASS)  , 3EP  = { SORT T N , SORTO UT ) 
//SOPTWK 0 1 DD  UNTT=S¥SDA, SPACE=  (CYL,  (10)  ,, CONTIG) , 

//  SEP=  (SOPTIN, SORTOUT,SORTLIE) 

//SORTWK  02  DD  UNT T=S YSD A , SP ACE  = (C YI , ( 10 ) , , CONTIG) , 

//  S&P=  (SORTIN, SOPTOUT, SORTLTE, SOPTKK0 1 ) 

//SORTWXC3  DD  UN I T=S YSD A , SP A CE= (C YL , ( 1 0)  , , CONTIG) , 

//  5SP  = (SOPTIN, SOPTOUT, SORTLT3, SORTWK0 1 ,SORTWK02) 

//SYSOUT  DD  SYSOUT=A 
//5YSUDUMP  DD  DUMMY 
//SYS  IK  DD  * 

SOFT  FIELDS=  (1 , 2, A, SS, 1 , A ,61 , 4, A)  , FORMAT =CH,FILSZ  = E20000 
END 

//STEP06  EXEC  DSSCR  , N AM  E=  ' W EU2  J J J . DEI  TAX  X • , DTS  K = FTLT?  3 2 
//STEP0  6 EXEC  C 3L AC A L L , N A M E= • Vi EU2 LLC . NAM  PS  78  * , DISK=PDS00S, 

//  PROG  PAM=BPFOPMAT,CORE=150K 

//GO. SBASE  DD  DSK  = &SSBASES, DISP=  (OLD, DELFTE)  , UNTT=SYSDA , 

//  DCB=*.STEP01. SORT OUT 

//GO.  DFLTAX  DD  DSN=WEU2JJJ.  DELTAXX,  DISP=  (N  EW  , K EE  P , D EL  ETE)  , UNTT=FTLE, 
//  VOL=SER=FILE32,DCB= (P ECF M = FE, LSEC L= 3 39 , BLKS TZE= 1 2 8D 2) , 

//  5PACF=  (TRK,  ( 100,  10)  ,FISE) 

//GO. SYS  IN  DD  * 

XX  WHERE  'XX'  TS  DELTA  INC/DEC  NUMBER 


Data  Sets  Required: 


1)  //GO.DELT2,  DELTAXX.  EXTRACT,  output  from 
DDBPSELCT  containing  sorted  requirement 
data  for  delta  XX. 


Preparation: 


1)  Extract  DDBPFORMAT  from  DDJOBS78 

2)  DELTA  XX.EXTRACT,  change  XX  to  the  specified 

delta  number. 

3)  //GO.SYSIN,  input  the  delta  number 

I 

Generated  Output: 

1)  //GO.DELTSX,  DELTAXX,  reformatted  requirement 
data  for  delta  XX  used  as  input  for  Support  Sub- 
system. 


-39- 


3.6.3  DDBPDELTRP 


The  Job  and  Its  Purpose: 

DDBPDELTRP  produces  a summary  report,  similar  to 
the  OP-103  Implementation  Report,  displaying  requirements 
for  a selected  delta. 


//Gi-XRFPT  JOE  (KF'12, 386,  C,  110,30)  , • POK  73  NA.XPS' 

//*  SORTS  3 Y SPP, IN  C/DEC, SPONSOR,  A CTJVITY#o  EG  K,NEJ,  'A?TNG,PAYGPADE 
//SO!?r?  E>"  FC  ITT-iRT 

//SOR?T  S DD  DS  N = WE  (J2GSX.  PELT  A XX.  EXTRACT,  UXTT=FILF  , DISPOSE?, 

//  VOL=SE3=FILE32,DCE=  ( LRECL=  1 2 6 , E L K SI 7 E=  307  >,  PECFM=FB) 

//S0PT0U7  DO  D5N  = WFTt2GSX.  SORTED. DFLTAXX.  E VTP  ACT,  l!  MIT=F  II F , 

//  VOL  = SEP=FILE2Q,  DCE=  (LR2CL=  1 23,  3L  K S T?  E = 30”  2 , I EC^F^FE)  , 

//  DTSP  = (NEW,  KEF?)  , SP  AC  F = (TPK,  (130,  10)  , PISE) 

//SYSIN  DD  * 

SOFT  FI  El DS={8, 2, A, 10, 4, A,  1, 2, A, 44, 10, A, 55, 1,D, 69, w, A, 61, 4, A, 65, 4, A)  , 
FOHMAT=CH,SIZE=F20000 

/* 

//GO  EXEC  PLTVCAI.L,NAME=  • WEII2LIC.  NAKPS78*  , D'rSK=PDS005, 

//  ? POOR  AM=BPDELT PP, COR  E= 1 50K , OPTIONS3 ' CS (43) ' 

//GO.SPPCX  DD  DSN=W™J2LLC.'1S?IND'Y,DTSP=SHR,UNTT=FTIE, 

//  VOL=S ER=FIL206, DCB= (RECFM=*3, L3ECL=80, BLKSIZ5= >120) 

//GO. SPODY  DD  DSN-WFU2ILC. N A M PS  78  . INDEX (PESINDX)  , DIE. P=SH  R , UNIT=FI  LE  , 
//  VOL=SEP=PCS00S, DCB= ( P ECFM= FB, LREC L= 80 , B LKSIZE= 3 1 20) 

//GO. DATA  DD  DS N = W E U2GSX. SORT ED. DELTA  XX. EXTRA CT, UNI T = FILE, D IS P=SHR, 
//  VOX =SEfi=?ILF28,DCB= (IRECL= 128, BLKSTZE=3072, RFCFM=FB) 

//GO  .SYSPRINT  DD  5YSO!IT  = A 
//GC.DIAGNOS  TD  SYSOUT=A 
//GO . SYS  OUT  DD  SYSOUT=A 


Data  Sets  Required: 

1)  //SORTIN,  DELTAXX. EXTRACT,  output  from  DDBPSELCT 

2)  //GO.SPPDX,  MSPINDX,  index  of  valid  mission  sponsor 

codes  and  titles. 

3)  //GO.SPODX,  PESINDX,  index  of  valid  program  element 

sponsor  codes  and  titles. 

4)  //GO.DATA.SORTED.DELTAXX.EXTRACT,  sorted 

output  from  DDBPSELCT 
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Preparation: 


1)  Extract  DDBPDELTRP  from  DDJOBS78 

2)  //SORT1N,  DELTAXX. EXTRACT,  change  XX  to 

specified  delta  number 

3)  //SORTOUT,  SORTED.DELTAXX. EXTRACT,  change 

XX  to  specified  delta  number. 

4)  //GO. DATA,  SORTED.DELTAXX. EXTRACT,  change  XX 

to  the  specified  delta  number. 

Generated  Output: 

1)  //SORTOUT,  SORTED.DELTAXX. EXTRACT,  sorted  out 

put  from  DDBPSELCT 

2)  //SYSOUT,  SYSOUT=A,  summary  report 


Data  Set  Layouts: 


PAYGRADE 


DYNAMICS.  INC. 

15825  SHADY  GROVE  ROAD 
ROCKVILLE.  MARYLAND  20850 


4. 


Support  Subsystem 


4.1  General: 

The  Support  Subsystem  interfaces  with  NARVI  while  providing 
essential  input  for  other  Subsystems  within  MINI-NAMPS  78.  The  principal 
function  of  this  subsystem  is  to  determine  the  support  billets  which  are 
added  to  a selected  delta  to  create  a new  enlisted  requirement  base. 

Requirement  ratios  by  sponsor,  rating,  and  paygrade  for  each  program 
element  are  calculated  according  to  their  distribution  in  an  enlisted 
requirement  base  supplied  from  the  MAPMIS  System.  Requirement  ratios  by 
program  element  are  furnished  to  OP-901  and  support  billet  ratios  by 
program  element  are  returned.  Using  the  requirement  distribution  ratios 
and  support  ratios  from  NARM,  final  support  ratios  by  sponsor,  rating,  and 
paygrade  are  calculated.  These  are  applied  to  an  extracted  delta  and  the 
resultant  requirement  plus  support  are  stored  ^in  a data  set  for  subsequent 
updating  to  create  a new  enlisted  requirement  base. 

4.2  Quality  Ratio  Gen 

The  four  programs  which  comprise  th?  Quality  Ratio  Gen  subsection 
use  an  enlisted  requirement  base  from  the  MAPMIS  System  to  determine  the 
distribution  ratios  of  billets  by  rating  and  paygrade.  Output  from  this 
subsection  is  utilized  by  MINI-NAMPS  78  Support  Subsystem  and  OP-901. 

4.2.1  DDREQRATIO 

The  Job  and  Its  Purpose: 

DDREQRATIO  inputs  an  enlisted  requirement  base  extracted 
from  the  MAPMIS  System  and  generates  ratios  of  billets  by  Sponsor, 
rating,  and  paygrade  for  each  program  element. 

il 
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//LLCNARM2  JOB  (W EU2, 386, C , 1 50 , 30) , • POM  '9  NAMPS  ' , M S G L S V E L=  (2,0) 
//ST*P01  EYFC  PGM  = SORT, RF GION=300 K, PARM='CORF=3COK,  :TZE=MAX' 
//SORTIN  DD  DSN=WEU2LLC.RAWPEQ.DATE,DISP=  (3HR,KF.  F?)  , UNIT=?TLF, 

//  VOL=SER=FILE34,DCB= (PECFM=FB, LRFCL=53,3LKSI7E=3498) 

//SOP  TOUT  DP  DSN  = 6&REQMNTS, riSP=  (NFW,PASS, DZ! ETE)  ,UNTT=SYSDA, 

//  S P AC  E = (TPK,  (90,5) ,RLJE)  , DCB  = (REC?M=?8,  LPECL=5  3,  3LKS  TZE=  12a9  5)  , 
//  3EP  = ( JOFTTN) 

//  SORTLIB  DD  DSN-P<SORTLT?,PTS?  = (SHR,PASS)  , 

//  5iP  = (SOPTIN, 30FT0UT) 

// SORTMK01  DD  UNT T=S Y SD A , SP ACE=  (C YL , ( 5)  , , CONTXG)  , 

//  S EP  = (SOPTIN, SORTOUT, SOP TLIB) 

//SORTWK  02  DD  UNT  T=  S Y SD  A , SP  ACE=  (CYL,  (5)  , , CONTIS)  , 

//  SEP  = (SORTIN, SORTOUT,. SORTLIB, SORT WKO 1) 

//SORTWK03  DD  UNTI=SYSDA, S?ACE=  (CYI,  (5)  , ,CONTTG) , 

//  Si P= (SOPTIN,SORTOUT,SORTLIB, SORT W KOI ,SOPTWK02) 

//SYSOUT  DD  SYSOUT=A 
//SY3UDUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  WIELDS=  (1 , 6,  A,  17, 2 , A , 1 2,  3,  A)  , FOR  M AT  =CH  , F I LSZ -‘E  1 8 0 00 
END 

//3TZP02  SXFC  CBLACALl ,NAME=‘ WEU2LLC.  NAKPS76'  , DI5K= PDS005, 

//  ?ROGRAM=9EQRATIO,CORE=80K 

//GO. RFQMSNT5  DD  DSN  = 06 R FQM NTS , DI SP=  (OLD, DEI ETE)  ,UNTT=SY3DA, 

//  DCB=*. ST  EP01 . 50RT0UT 

//GO. RATIO  DD  DSN =6&R EQR A TS , DI SP=  (N  EW  , PA  SS  , DELETE)  , 'I  N IT  =S  Y S DA  , 

//  DC B=  (RECFM=FB,LRECL  = 5"’,  BLKSIZE=  12996)  , 

//  SPACE=  (TRK,  (100,10)  , ELSE) 

//GO.REPRT  DD  SYSOUT=A 

//ST EPO 3 EXEC  DSSCR, NAHE= ' WEU2LLC. REQMENTS . RATIOS' , DISK=FTLE06 
//STEP05  EXEC  PGM=SORT, R EGTON= 3C0 K, P AR M = ' COR E= 3 CO K , S 17 E = M A X ' 
//30RTIN  DD  DS N=f 6PEQRATS , DTSP=  (OLD, DELETE)  ,UNIT=SY3DA, 

//  DCB=*.STEP04. GO. RATIO 

//SORTOUT  DD  DSN  = WEU2LLC.R,::QMENTS.RATIOS,DISP=  (NEW,  KEEP)  , UNIT=FTLE, 
//  VOL  = 5ER  = 1?ILE06,  DC  B=*. SORTIN, 

//  SPACE=  (TRK,  (100, 10)  ,RLSE)  , 

//  S£P  = (SORTIN) 

//SORTLIB  DD  DSN  = S SO STL  I B , DI SP- (S HR , P ASS ) , 

//  SEP=  (SOPTIN, SORTOUT) 

//SORTWK 01  DD  UNIT  = SYSDA,SPACE=  (CYL,  (10)  ,,CONTIG) , 

//  SEP=  (SOPTIN, SORTOUT, SORTLIB) 

//SORTWK  02  DD  U NIT=S YSD A , SP ACE=  (C YL , ( 1 0)  , , CO NT  I G) , 

//  S EP= (SORTIN, SORTOUT, SORTLIB, SORTWK01) 

//SORTWK03  DD  UNI T=S Y SD A , S P ACE=  (C YL , ( 1 0)  , , CONT TG ) , 

//  SEP=  (SORTIN, SORTOUT, SORTLIB, SORTWKOI ,SORTWK02) 

//SYSOUT  DD  SYSOUT= A 
//SYS U DUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  17IELDS=  (1,6,  A)  , FORM AT=CH, F ILSZ=£3 6000 
END 


i 
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Data  Sets  Required: 


1)  //SORTIN,  RAWREQ.DATE,  enlisted  requirement  base 

extracted  from  the  MAPMIS  System. 

Preparation: 

1)  Extract  DDREQRATIO  from  DDJOBS78 

2)  //SORTIN,  RAWREQ.DATE,  change  DATE  to  the  month  and 
day  identifying  the  requirement  base. 


Generated  Output: 

1)  //SORTOUT,  REQMENTS. RATIOS,  calculated  ratios  of  billets 
by  sponsor,  rating,  and  paygrade  for  each  program  element. 

2)  //SYSOUT,  SYSOUT=A,  summary  report  of  calculated  ratios. 


4.2.2  DDN  AMPNARM 

The  Job  and  Its  Purpose: 

DDNAMPNARM  is  the  first  of  three  related  programs 
which  determine  the  distribution  ratios  by  rating  and  paygrade 
for  each  program  element  in  an  enlisted  requirement  base. 
The  ratios  are  eventually  stored  on  magnetic  tape  and  are  used 
by  OP-901  for  NARM  evaluation. 
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//LLCNAR  MA  JOE  (WEU2,  386,D,  30,30)  , ' POM  78  NAMPS  ' , 1SGL  EVEL  = (2,0) 
//STEPO 1 EXEC  PSM=SORT, PEGION=3n0K, PARM= »COPE=300K,  5T7E=KAX* 
//SORT!  N DD  DSN=WEU2LLC.RAWRE'J.DATE,DISP=  (SHP,KErP)  , If  NIT  = F ILE  , 

//  VOl=SER=cTLE34  ,DCD=(PECFM  = FB,LRECL-53,3IKS‘rZr=3498) 

//SOR  TOUT  DD  DSN  = E-,>REQMNTS,DTSP  = (NEW,  PASS,  Dr.LETF)  , (JMTT  = SY5DA, 

//  SPACE=  (TPK,  (90 , B)  , ELSE)  , DCB=  (PECFM=FB,  LPECL=E3,  EL  KS  I?  E - 1 2 98  5)  , 
//  3£P=  (SOPTIN) 

//SORTLIE  DD  DSN= 6SORTLI P , DI SP = (S HR , P ASS ) , 

//  SEF  = (SORTIN, SORTOUT) 

//SORT W KOI  DD  U NTT  = S Y SD A , SP ACE=  (C YL , ( 6)  , , CONTT G)  , 

//  S EP=  (JOPTTN, SORTOUT, SORTLIB) 

//SORIWK02  DD  UNIT^SYSDA, SPACE=  (CYL,  (6)  , ,CONTTG)  , 

//  SEP=  (SOPTIN, SORTOUT/SORTLIB, SORT W KOI) 

//SOPTWK 03  DD  rjN!T=SYSDA,  SPACE=  (CYL  , (6)  , .CONTIS)  , 

//  S EF  = (S OFT I N, SORTOUT, SORTLIB, SORT WK01  ,SORTKK02) 

//SYSOUT  DD  SYSOUT=A 
//SYSUD’JM?  DD  DOM  MY 
// S Y 5 1 N CD  * 

SORT  FTELDS=  (1, 10, A) , FORM AT=C H, FILSZ= E 1 8 000 
//ST FPr 2 EXEC  CBLACALL, NAMF=' WEU2LLC. NAMPS78' , DISK=PDS005, 

//  PROSRAM=NAMPNARM,CORE=170K 

//GO. REQMENTS  DD  D5 N=$S REQM NTS , DI SP=  (OLD, DELETE)  ,UNIT=S YSDA  , 

//  DCB=*.  5TrP0  1.  SORTOfJT 
//GO. REPRTS  DD  SYSOUT=A 

//GO. SORTIN  DD  DSN=WEU2LLC. PATSORT, DISP= (OLD, KEEP) , U NIT=FTLE, 

//  VOL=SER=FILE06,DCB= (PECFM=FB, LRECL=96, BL KS I Z E- 1 2 9 60 ) 

//STEP04  EXEC  PGM  = SORT,REGION=  300K, P A RM  = *C OR E=  3 00K , S I ZE  = M A X 1 
//SORTIN  DD  DSN=WE02LLC. PATSORT, DTSP=  (OLD, KEEP)  ,rjNIT  = FTLE, 

//  VOL=SER=FILE06,DC3= (RECFK=FB, LR ECL= 96 , BLKS I Z E= 1 2 96 0) 

//SORTOIJT  DD  DSN=*. SORTIN, DISP=  (OLD, KEEP)  ,UNIT  = ’!'TLE, 

//  VOL=SER=FTLS06,DCB=*. SORTIN 
//SORTLIB  DD  DSN=f>SORTLT5,D‘rS?  = (SHR,PASS)  , 

//  SE?=  (SORTOUT) 

//SORTWK01  DD  UNI T=S YSD A , SP ACE=  (C YL , (6)  , ,CONTIG ) , 

//  SEP=  (SORTOUT, SORTLIB) 

//SORTKK02  DD  UN IT  = S Y SD A , SP ACE=  (C YL , ( 6)  , ,CONTIG ) , 

//  SEP= (SORTOUT, SORTLIB, SOPTWKO 1 ) 

// SORTVK03  DD  UN I T = S YSD A , S P ACE=  (C YL , (6)  , , CONTIG ) , 

//  SEP= (SORTOUT, SORTLIB, SORTWK01 ,SORTWK02) 

//SYSOUT  DD  SY S7UT= A 
//SYSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  FIELDS=  ( 1 1 , 6 , A , 3 1 , 5 , A)  , FOP  MAT =CH , FI LSZ= E 6000 
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Data  Sets  Required: 

1)  //SORTIN,  RAWREQ.DATE,  enlisted  requirement  base 
extracted  from  the  MAPMIS  System. 

Preparation: 

1)  Extract  DDNAMPNARM  from  DDJOBS  78 

2)  //SORTIN,  RAWREQ.DATE,  change  DATE  to  the  month  and 
day  identifying  the  requirement  base. 

Generated  Output: 

1)  //SORTOUT,  RATSORT,  sorted  sequential  data  set  containing 
distribution  ratios. 


I 

I 

I 


4.2.3  DDNNREP 


The  Job  and  Its  Purpose: 

This  program  produces  a report  of  the  ratios  generated 
by  DDNAMPNARM. 


//LLCNAR  MB  JOB  (K2U2 , iS6, B,  30, 30)  , ' POM  78  NAMPS  ' , MS 3L 2V  EL = { 2, 0 i 
//STEF02  EXEC  C3LACALL,NAKS=,KErj2ILC.NAHPS73,fEISK  = PDS00'?, 

//  PROG3AM=  NNFEP,COHE=40K 
//GO. 3ZP3TS  EC  SYSOUT=A 

//GO. GOP TOUT  DD  DSN=WEU2IIC.PAT50BT,DIS?=(01D,KFFP)  , U NT  T=FTLF , 

//  VOL  = SER  = FIL506fDC3=  (RECFM  = V Br  LRECI.=  96,  BLKG  TZ£= 1 2960) 


Data  Sets  Required: 

1)  //GO.SORTOUT,  RATSORT,  data  set  containing  distribution 
ratios  calculated  by  DDNAMPNARM. 

Preparation: 

1)  Extract  DDNEPREP  from  DDJOBS78 
Generated  Output: 

1)  //GO.REPRTS,  SYSOUT=A,  generated  report  (see  Sample 
Output) 


Sample  Output: 


r 


I 


I 


P.K. 

SPONSOR 

F ATI  NCI 

GRADE 

P Y 77 

py  78 

PY  79 
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FY  b 1 

010042 

C6 
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.003378 
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.00337C 

.003378 

010042 

00 
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4 

.005068 

.005068 

.005068 
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.005066 

0 10042 

00 

BU 

3 

.005068 

.005068 
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.005068 
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010042 

00 
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6 

.00168* 

.001669 

.00  1689 
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06 
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010042 

06 

CE 
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.00 1689 

.G0 1669 
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06 

CM 
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.0016t9 
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.001689 

.001689 

.00  1bb9 

010042 

06 

CM 

5 

.001689 

.001689 

.00  1689 

.001689 

.001689 

010042 

06 

CM 

4 

.006757 

.006757 

.006757 

.006757 

• 00b757 

0 10042 

0 6 

CN 

3 

.001689 

.001689 

.001689 

.001669 

.00 1689 

0 1G04? 

06 

CTA 

6 

.00 1669 

. CO  1b89 

.00  1689 

.001689 

.00 1689 

0 10042 

06 
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5 

.00337b 

.003378 

.003378 

.003378 

.003376 

0 10042 

06 

CTO 

4 

.001689 

.001689 

.00  1689 

.001689 

.001689 

G 10042 

06 

CTK 

7 

.001089 

.001689 

.00  1b89 

.001689 

.001669 

0 10042 

06 

DK 

7 

.00 1b89 

.001689 

.60 1689 

.001689 

.001689 

010042 

06 

OK 

6 

.003378 

.003378 

.G0337e 

.G03378 

.003378 

0 10042 

06 

DM 

7 

.001689 

.001669 

. 00  16  89 

.001689 

.001669 

0 10042 

00 

DK 

6 

.003378 

.003378 

.003378 

.003378 

.003378 

0 10042 

06 

DM 

5 

.006757 

.006757 

.006757 

.006767 

.006757 

0 10042 

06 

DM 

4 

.C03378 

.003378 

.00 J378 

.003378 

.003378 

010042 

06 

DP 

b 

.001689 

. 00 1b89 

.00 1669 

.ooioey 

. 00  16L9 

0 10042 

06 

DP 

6 

.003378 

.003378 

.003376 

.003376 

.003378 

010042 

06 

DP 

5 

. 005G68 

.005068 

.005068 

.005068 

.005068 

G 1 G G 4 / 

Ot 

DP 
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.001689 

.001 b89 

.001689 

.001689 
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0 10G42 

06 

DS 
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.005068 

.005068 

.GG5flt>b 

.0G5Cb8 

.00  506b 

010042 

06 

DS 

4 

.003378 

. 00337b 

.003378 

.00337b 

.003370 

010042 

Ob 

DT 

5 

.001085 

.001689 

.001689 

.001689 

.001669 

0 10042 

06 

EN 

7 

.0016by 

.001689 

.001689 

.GO 1b89 

.001689 

G 10042 

06 

KN 

6 

.001689 

.001689 

.00  1689 

.GG16B9 

.001689 

0 10042 

Ob 

KN 

5 

.00 1689 

.00 1689 

.00  1689 

.001689 

.00 1b89 

010G42 

Ob 

to 

3 

.001669 

.00 1b 89 

.00 1bt9 

.001669 

.001689 

0 10042 

06 

ET 

7 

.003378 

. 003378 

.003378 

.003378 

.003376 

0 10042 

06 

tTN 

5 

.008446 

.008446 

.008446 

.006446 

.000446 

0 1u04^ 

06 

fc'i  N 

4 

.025333 

.025338 

.025336 

.025338 

.025336 

010042 

Ob 

ET 

6 

. GO 1b09 

.GO lb89 

.00 1b09 

.001689 

.00 1689 

010042 

06 

HH 

7 

.001689 

.001689 

.00 1689 

.00 1b  b9 

.00 1669 

010042 

06 

HM 

6 

.001689 

.001689 

.00 1669 

.001669 

.001689 

010042 

06 

HM 

5 

.001689 

.OOlbBS 

.001669 

.001689 

.001689 

0 10042 

Ob 

IS 

7 

.001689 

.001689 

.001669 

.001669 

.001689 

010042 

06 

IS 

b 

.003378 

.003378 

.003376 

.003376 

.003376 

010042 

06 

JO 

& 

.001 bb9 

.G016b9 

.00 1669 

.001689 

.00 1b 89 

0 10042 

00 

JO 

7 

.003376 

.003378 

.003378 

.003376 

.003378 

G 10042 

06 

JO 

6 

.000000 

.000000 

.000000 

.000000 

.000000 

010042 

06 

JO 

6 

.00  1689 

.00 1689 

.00 1hb9 

.GG1G89 

.00 16b9 

010042 

06 

JO 

5 

.00337b 

.003378 

.003376 

.GG3376 

.003378 

0 10042 

06 

JO 

4 

.003378 

.003378 

.003376 

.003378 

.003376 

0 10042 

00 

LI 

7 

.003378 

.003378 

.003378 

. 003376 

.003378 

0 10042 

Ob 

LI 

6 

.001689 

.001689 

.001689 

.001689 

.001669 
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06 

LI 

5 

.G05G66 

.005068 
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.00506b 

.005068 

0 10042 

06 

LI 

4 

.005068 

.00 506b 

.00606b 
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.005068 

010042 

06 

Mb 

7 

.001689 

.001689 

.001689 

.001669 
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06 

nn 

5 
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.006757 
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06 

nn 

4 
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.011824 

.011824 
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06 

MS 

7 
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0 10042 

06 

RS 

2 
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010042 

06 

MS 

3 
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00 

ns 

3 
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0 10042 

06 

ns 

6 
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MS 

6 
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.000000 
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06 

ns 

6 

.003376 
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.003378 

.003378 

.003378 
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4.2.4  DDNARMTAPE 

The  Job  and  Its  Purpose: 

DDNARMTAPE  stores  the  ratios  calculated  by 
NAMPNARM  on  a 7-track  magnetic  tape  for  distribution  to 
OP-901. 


//LLCNARMC  JOB  ( W EU2 , 3B6  , B , 3 0 , 3 0)  , ' POK  78  .<  AMPS  • , MSGLEVEL= (2, 0) 
/♦ROUTE  XFQ  7TPACK 
/♦MESSAGE  015048, W 

//STEPC2  EXEC  C3L  ACALI , N A K E = ' KEU2LLC  . NAME'S  75  • , DISK=PDS0G5, 

//  PROG ?AK=NARMT APE, CO  R E=  4 OK 

//GO.  NARKTAP  1 DD  DSN=WEU2LLC.  NAMPS.  NARM,DISP=  (NEW, KEEP)  , !JNIT=TAPE7. 

//  VOI  = 5E  R = 0 1 5048, DC 3= (FECFM=0,BLKSIZE=?22,DEN=2,TRTCH=ET)  , 

//  LABEL=  ( 1 , NL) 

//GO. NARMTAP2  DD  DSN  = ♦ . GO . N ARMT AP  1 , DISP=  (NEW, KEEP)  ,MN~T=TAPE7, 

//  VOL=SER=01 5048 ,DCB-*. GO.NARMTAP1, 

//  LABEL=  ( 2 , NT) 

//GC. NA3MTAP3  DD  DSN=* . GO . N ARMT A? 1 , DISP= (N E W , K EEP) , UN IT =? A PE7 , 

//  VOL= SER= 0 15048, DC 3=*. GO. N ARMT API , 

//  LA3EL=  ( 3 , NL) 

//GG.S0RT0U7  DC  DS N=W EU 2LLC . R ATSORT , DIS P= (OLD, KEEP) , UNIT=FILE , 

//  VOI=SFR=FILE06,  DC3=  ( R FC  FM  = F3 , LRECL=9  6,  BI.KSIZF=1  29  60) 

//STFP04  EXEC  PRINT 

//PRINT.  SYSUT1  DD  DSN  = * . STEP0 2 . GO  . N AP.  MT AP  1 , DIS  P=  (OL D,  KEEP)  , U N IT  = T A?  I 7 , 
//  VOL  = SER=  01  5048, DC STEP02.GO. NARMT  AF 1 , 

//  LABEL=  (2, NL) 


Data  Sets  Required: 

1)  //GO.SORTOUT,  RATSORT,  data  set  containing  distribution  of 
ratios  from  NAMPNARM 

Preparation: 

1)  Extract  DDNARMTAPE  from  DDJOBS78 

2)  Change  XXXXXX  to  the  tape  volume  serial  number  on  which 
ratios  are  being  recorded. 


"" 


Generated  Output: 

1)  //GO.NARMTAP1,  tape  header  label 

2)  //GO.N  ARMTAP2,  distribution  ratios  stored  on  7-track  tape 

3)  //GO.N  ARMTAP3,  tape  trailer  label 


4.3  Support  Ratio  Gen 

Support  ratios  by  program  element  are  furnished  by  NARM  and 
must  be  applied  to  requirement  billet  distributions.  The  Support 
Ratio  Gen  Subsection  performs  the  functions  of  reformatting  the 
input  data  from  7-track  tape  and  calculating  support  ratios  by 
sponsor,  rating,  and  paygrade  for  each  program  element. 

4.3.1  DDINTERPTP 

The  Job  and  Its  Purpose: 

DDINTERPTP  translates  the  NARM  support  ratios 
contained  on  7-track  magnetic  tape  into  a format  accessable 
by  NIH  WYLBUR  commands. 


//LLCNARM3  JOB  (WEU2, 386, B, 30, 30) , ' POM  78  NAKPS  ' , MSGL  EVEL-  ( 2,  0) 
/♦ROUTE  XEQ  7TRACK 
/♦MESSAGE  0 1 1063, RS 

//STEPP2  EYEC  DSSCR, NAM E='WEU2LtC. NARM. RATIOS', DISK=EILE06 
//STEPO 1 E Y EC  CBLACALL, NAME=' WEU2LLC. NAM  PS  78'  , DISK=?DS005, 

//  PROGRAM =INTERPTP,CORE=70K 

//GO. NARMTAPE  DD  DSN  = N A R MT A PE , D IS P=  (OLD, KEFP)  , 7 NTT=  TA  PE7 , 

//  VOL=SER=0  1 1 06  8 , DC  B=  ( F ECFM=  rJ , ? LKS  IZ£  = 22  2 , DEN  = 2 , T RTCH  = ET)  , 

//  LABEL=  (2,  NI.) 

//GO.  NARMRATS  DD  DSN  = W EU2 L LC . N A R M . R ATIOS , DTSP=  (NEW,  KEEP)  ,UNIT  = ,?tle, 
//  VOI=SER=FILE06,DCB= (RECFM  = FE, LPECL=72, BLKSIZE=3456)  , 

//  SPACE=(TRK,  (1,1)  ,RLSE) 
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Data  Sets  Required: 


1)  //GO.NARMTAPE,  NARMTAPE,  7-track  magnetic  tape  from 
NARM  containing  support  ratios  by  program  element. 

Preparation: 

1)  Extract  DDINTERPTP  from  DDJOBS78 

2)  Change  XXX XXX  to  the  7-track  tape  volume  serial  number. 

Generated  Output: 

1)  //GO.NARMRATS,  NARM.RATIOS,  reformatted  NARM 

support  ratios  by  program  element. 


4.3.2  DDSUPRATIO 


The  Job  and  Its  Purpose: 

DDSUPRATIO  uses  the  reformatted  NARM  ratios, 
detailing  support  in  terms  of  program  element,  and 
redistributes  this  support  by  sponsor,  rating,  and  paygrade. 
New  support  ratios  are  calculated  corresponding  to 
requirement  billets  distributions  determined  by  REQRATIO. 
Duplicate  records  are  removed  in  the  procedure. 


//LICNAPy4  JOB  (WE'J2,  186,C,  150, 30)  , • POM  78  NAMFS  ' , M SG  LEVEL”  (2 , n) 

//ST  EPO  1 EXEC  POK=  SORT,  REGION  = 3 00K,  P A PM  = • COP.  E=  3 0 OK , 3 1 2E  = M A X 1 
//SORTIN  DO  DSN=WEU2LLC. NARM.  RATIOS,  DISP=(OLD,  KEEP)  ,UNIT=FILE, 

//  V0L  = SER'=oILE06,  DC  B = (RECFM=FB,  LRPCL=72,  BL  KS  1 7 E- 3 79  8) 

//SORTOUT  DD  DSN=66NARMRATSfDISP=  (NSW,  PASS, DELETE)  , UNTT-SYSDA, 

//  SPAC  E=  (TPK,  (1,  1)  .RISE)  , DC3=*.  SORTIN’,  SFP  - (SORT’N) 

//SCRTLT3  DD  DSN=S50R?LTB, DIS?=  (SHS,PASS) , S7P=  ( SORT  I N , SORTOUT ) 
//30STWK01  DD  UNIT=SYSDA,SPACF=(CYL,  (2)  ,, CON TIG)  , 

//  SEP=  (SORTIN, SORTOUT, SOFTLTD) 

//SORIWK02  DD  UNIT=SYSDA,SPACE=  (CYL,  (2)  , ,C0NTIG) , 

//  SEP=  (SOPTIN,  SORTO'iI,  SOP  TIT  3 , SORTWKO  1 ) 

//5ORTNK03  DD  UNIT=S  YSDA,  SP  AC£=  (CYL,  (2)  , ,CONTTG)  , 

//  SE?=  (SORTIN',  SO? TO UT,  SOFT!  T B , SORTS*  KC  1 , SOFT  WK  0 2) 

//SYSOUT  DD  SYSOL'T=A 
//SYSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SOFT  FIELDS^  (7, 6, A)  , E OF K A T=C H , F ILSZ= E2 00 
END 

//ST  EPO  2 S v EC  CBL AC  ALL , N A ME= 1 W EU2  LLC . NA  MPS7U 1 , DISK=PDS005, 

//  PRO  ’.RAM  = SUFRATIO,  CORF  = 30CK 

//GO. REQBATS  DD  DS N=W EU2L LC . P EQME NTS . RAT 10 S , D! S P= (C LD, KEEP) , U NIT=FILE , 
//  VOI=SER=FILE06,DC3= (RECFM=F3, LRECL=57 ,BLKSIZE=12996) 

//GO.  NAP  MR  ATS  DD  DSN  = 55NARMRATS,DTSP=(OLD,DP:LFT-),U\':T=SYSDA, 

//  DC3=*. STEP01. SORTOUT 

//GC.SUPPR ATS  DD  DSN=GG 5U PP P ATS , DTSP=  (NE W , PASS)  , UNI T= SY SDA , 

//  SPACE=  (TRK,  (300,  50)  ,FLSE)  , DCB= ( RECFM=FB, LR £CL= 1 95 , DLKS I ZE=1 2670) 
//STEP04  EXEC  PGM=50R T, R EG TOH=3 00 K, PARM = • COR E= 30CK , SIZE=MA X ' 

//SOPTIN  DD  DSN=S63U?PRATS, DISP=(OLD, DELETE) , U N TT=S YS DA , 

//  DC B=*. STEP02.GO.SU PPRATS 

//SOPTOUT  DD  DSN=6SSORTRATS,  DISP=  (NEW, PASS)  ,’JNIT=SY3DA  , 

//  5PACE=  (TRK,  (300,  10)  ,RLSE)  , DCB=*  . SORT  IN  , SFP=  (SOPTIN) 

//SORTIIB  DD  DSN=6SOPTLIE ,DISP=  (SHR , PASS)  , SEP=  ( SORT I N , SORTOUT) 
//SORTWK01  DD  UNIT  = SYSDA,SPACE=  (CYL,  (12)  ,,CONTIG) , 

//  SE?=  (SORTIN, SORTOUT, SOFTLIB) 

//SOFTWK02  DD  UNIT=SYSDA,SPACE=  (CYL,  (12)  ,,CONTIG) , 

//  SEP= (SORTIN, SORTOUT, SORTLI B , SORTWKO 1 ) 

//SOPTWK03  DD  UNTT  = SYSDA,SPACE=(CYL, (12) ,,CONTIG) , 

//  S EP=  (SORTIN, SORTOUT, SORTL I B , SORT WKO 1 , S OPT W KO 2) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  FIELDS=  (1,6, A)  , FORM A T=CH , FILSZ-E200 00 
END 

//ST EPO 5 EXEC  DSSCR, N AM E= ' W EU2 LLC . SUPPORT. RATIOS ' , DISK  = FTLE  17 
//STEP06  EXEC  C3L AC ALL, N AM E= ' W EU2 LLC . NAM PS  78 ' , DISK=P DS005 , 

//  PROGPAM=SUMDUPS,COR3=7CK 

//GO. SORTRATS  DD  D SN = 66SORT P AT S , DTSP= (OLD, DELETE) ,UNIT=SYSDA, 

//  DC3=*.STEF04. SORTOUT 

//GO.SMPPRATS  DD  DSN=WPU2LLC.  SUPPORT.  RATTOS,DISP=  (NEW,  KEEP)  , U NTT=FI  L E , 
//  VOL  = SER  = FILE  I"7,  DC  3=*.  GO.  SORTRATS,  SPACE=  (TP  K , ( 1 0 0 , 1 0 ) , R L SE) 


-52- 


Data  Sets  Required: 


1)  //SORTIN,  NARM. RATIOS,  sequential  data  set  containing 

support  in  terms  of  program  element. 

2)  //GO.REQRATS,  REQMENTS.RATIOS,  ratios  of  billets  by 

sponsor,  rating,  and  paygrade  for  each  program  element. 

Preparation: 

1)  Extract  DDSUPRATIO  from  DDJOBS78 

2)  Execute  program  as  a class  C job  with  time  option  = 150  and 
lines  option  = 30. 

Generated  Output: 

1)  //GO.SUPPRATS,  SUPPORT.RATIOS,  sequential  data  set 

containing  ratios  by  sponsor,  rating,  and  paygrade  for  each 
program  element. 


-53- 


4.4  Support  Gen 


Creation  of  a new  enlisted  requirement  base  necessitates  the 
addition  of  support  billets  to  extracted  billets  for  a specified  delta. 
The  Support  Gen  Subsection  calculates  the  required  support  using 
ratios  from  the  preceeding  subsection  and  generates  a new  base.  A 
before  and  after  comparison  report  displaying  support  billets  by 
sponsor  and  rating  is  the  final  function  of  this  subsection. 


4.4.1  DDCALCSUPP 

The  Job  and  Its  Purpose: 

DDCALCSUPP  calculates  the  support  billets  required 
for  an  extracted  delta  using  support  ratios  calculated  by 
SUPRATIO. 


//LLCSU7P1  JOB  (WEU2,  336, B, JO, 30)  POM  78  NAMPS  ' , KSGL  EVEL= (2, 0) 
//STEP 03  EXEC  C9LACALL,  N AM  E= ' WEU2LLC.  N A M PS  79  ' , DTSK=PDS0OS, 

//  PROG  RAM=CALCSUPP,C0RE=1 00K 

//GO. DELTA  X DD  DSN  = W EU2 J J J . DELT AX  X, DTSP=  (S HR, KEEP)  , nNIT  = FTLE, 

//  VOL=SER=pILS32, DCB= (?ECFM=FB, LP EC L= 3 39 , BL KS I 2E= 1 2 88 2) 

//GO.  RATIOS  DC  DSN=WEU2LLC.  SUPPORT. RATIOS, DISP=  (01 D, KEEP)  , UNTT= FILE , 
//  VOL  = SE?^FILE1",DCB=(R  ECFM=FB,  LR  EC L=  1 Q5 , 3L KS  IZF=  1 2 8"’ 0) 

//G0.DELT1  DD  DSN  = H ETJ 2LLC  . DELT  1 , DTS P=  (OL D,  KE EP ) , UNIT=  FI L E, 

//  DC  B=  (RECFM  = FP,LPECL=19, BL K S IZ E= 1 30 1 5 ) , VOL  = S ER  = P!LE  3 2 
//GO. SYS  IN  DD  * 

XX  WHERE  'XX'  IS  DELTA  NUMBER 


Data  Sets  Required: 

1)  //GO.DELTAX,  DELTAXX,  sequential  data  set  containing 
extracted  requirements  for  a specified  delta. 

2)  //GO. RATIOS,  SUF.  ORT.RATIOS,  support  ratios  for  sponsors, 
ratings,  and  paygrades  by  program  element. 
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Preparation: 


1)  Extract  DDCALCSUPP  from  DDJOBS78 

2)  //GO.DELTAX,  DELTAXX,  change  XX  to  the  specified  delta 
number 

3)  //GO.SYSIN,  change  XX  to  the  specified  delta  number. 


Generated  Output: 

1)  //GO.DELT1,  DELT1,  sequential  data  set  containing  support 
billets  by  sponsor,  rating  and  paygrade. 
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The  Job  and  Its  Purpose: 


This  program  reformats  the  intermediate  file  containing 
support  calculations  into  a 6 x 9 array  conformable  for  input  to 
DDEUPDATE. 

//L1CSUPP2  JOB  (WETJ2,  196,0,30,30)  ,'  POM  7P  a AMPS  ' , .SC-LEVEL  = ( 2,  0) 
//3TEP04  C X EC  PGM  = SO  RT,  ? EG  1 0 N = 30aK,  ? A PM  = ' CORE  = 3 OP*  , '~7V  = MAX' 

//  SCRTI  N DD  DSN=KEU2LLC.  DELT1  , DI3P=  (OLD,  KEEP)  , UNIT=rTLE, 

//  ncE-  PEC  ?«=*[{,  LRZCL=19, 2LKSI7E=1  30 IS)  , VOL=SEF=F'LE32 
//30RT0UT  DD  DSN=55DELT1S,DIS?=  (N  EW  , PASS  , L ELET  E)  , U N TT  = S YSD  A , 

//  S P A C E = (T^K,  (40,10)  , RISE)  , DC  3= *. SO PT I N , 3EP  = ( SO^T’ N ) 

//SORTLIB  DD  DSN-6S0RTLTB,DTSP=  (SHU, PASS)  , S E?  = (SCPTVN, SORTOUT) 

//SO  RTW  K 0 1 DD  UNIT=3YSDA, SPACE=  (CYL,  (3)  , ,CONTI5)  , 

//  3 EP=  (SORTIN, SORTOUT, SORTLIB) 

//3ORTWK02  DD  UNT?  = SYSDA,SPACE-(CYI.,  (3)  ,,CONTTG)  , 

//  SZP  = (SORTIN,  SORTOUT,  S0RTIT3, SORT K KOI  ) 

//3ORTWK03  DD  UNTT=SYSDA,SPACE=(CYL, (3) , , CON TIG) , 

//  S E?  = (SOPTTN, SORTOUT, SORTLTB,3OPCWK01 ,SORTWKC2) 

//SYSO'JT  DD  SYSOUT=A 
//SVSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SOP!  EIELDS=(1,  1,A,2,2,A,8,1,A,4,3,A,7,1,A)  , FCF.KAT=CH  , F I L5Z  =E  1 200  0 0 
END 

//5TEP05  EXEC  CBLA CALL, NAME-* WE U2LLC. NAMPS78’ , DI5K=?DSC05, 

//  PROS  RA  .M  = S N UM  PROS  , CORF-70K 

//GO. JE LT 1 DD  DSN  = 6SDELT1 S, DISP= (OLD, DELETE)  , UNTT=SY5DA , 

//  DCB=*. STZPC4. SORTOUT 

//GO.DELT2  DD  DSN  = SS DELT2 , DISP=  ( N EW , P ASS , D EL ETE ) , UN?T=S YSD A , 

//  SPACE=  (TPK,  (10,1)  , R LS  E)  , DCB= (PECFM=FB, LRECL=13,ELKSIZE=13026) 
//5TEPC7  EXEC  PGM=SOR T, 3EGICN= 30 0 K, P AR M= * C OR E= 3 D0K , S ~ ZE  = M AV » 

//SORTIN  DD  DSN=££DELT2, DISP= (OLD, DELETE) , UNTT=SYSDA, 

//  DC5=*.5TEP05.GO.DELT2 

//SORTOUT  DD  DSN=£SDELT2S  ,DTSP=  (N  EW , PAS  S , DELETE)  , nNIT-SYSDA  , 

//  SPACE= (TPK,  (1,1)  , PL5F)  , EC B=*. SORTIN , SEP=  (SOPTTN) 

//SORTLIB  DD  D S N= 5 SORTL I E , PI SP=  (SHR,PASS)  ,SEF  = (SOPTT  N , SORTC'JT) 
//3OPTWK01  DD  UNIT=5 YSD A , 3 P A CE=  (CYL,  (3)  , ,CONTIG)  , 

//  S EP  = (SORTIN, SORTOUT, SORTLIB) 

//SOR  TWK02  DD  UNI  ?=S  YSD  A , S P ACE=  (C  YL  , ( 3)  , , CON"’ I G)  , 

//  S EP=  (SORTIN, SORTOUT, SORTLIB, SORTWK01) 

//SORTWK03  DD  UNIT=SYSDA,SPACE  = (CYL,  (3)  , ,CONTIG)  , 

//  SEP=  (SORTIN, SORTOUT, SORTLIB , SORT WK0 1 ,SORTWK02) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  DUMMY 
//SYSIN  DD  * 

SORT  FIELDS=  (1 ,6,  A)  , FOR  M A T = CH  , 17  ILSZ  = £ 1 20  00  0 
END 

//ST  EP0  8 EXEC  DSSCR,  N AME= ' W EU2 LLC . SDELT AXX ' , DTSK=FIL  E 1 
//STEP09  EXEC  C3I  AC  ALL,  N A .M  E- • WEU  2LLC . NAMPS78  ' , DISK  = P )S0  05, 

//  PROGRAM=REFOPM  AT,CORE  = ‘,0K 

//GO.DELT2  DD  ESN=£SDELT2S,DTSP= (OLD, DELFTS)  , UNITES Y >DA , 

//  DCB=*. ST EP07. SORTOUT 

//GO. DELTSX  DD  DSN=WEU2ILC. SDEI TA  XX , DISP= (NEW, KEEP)  , UNI T= FILE, 

//  VOL  = SER=FILE17,DC3= ( R EC FM  = F3, LR ECL= 3 3Q , BL KS I ZE= 1 ? 8 R 2)  , 

//  SPACE= (TRK,  (2,  1)  , RL3E) 

//GO. J YS IN  DD  * 

XX  WHERE  'XX'  13  DELTA  NUMBER 
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Data  Sets  Required: 


1)  //SORTIN,  DELT1,  intermediate  data  set  containing  support 
billets. 

Preparation: 

1)  Extract  DDREFORMAT  from  DDJOBS78. 

2)  //GO.DELTSX,  SDELTAXX,  change  XX  to  the  specified  delta 
number. 

3)  //GO.SYSIN,  change  XX  to  the  specified  delta  number. 


Generated  Output: 

1)  //GO.DELTSX,  SDELTAXX,  sequential  data  set  with 
reformatted  support  billets  for  delta  XX. 

4.4.3  DDSUPPREPT 

The  Job  and  Its  Purpose: 

DDSUPPREPT  uses  the  initial  delta  extract  file 
(DELTAXX)  and  the  file  containing  calculated  support 
(SDELTAXX)  and  generates  a before  and  after  report.  The 
output  is  formatted  to  display  support  calculated  for  each 
sponsor,  sponsor  and  rating,  and  individual  rating. 


I 

I 

I 
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//LLC5UPP J JOB  (WEU2, 336, 3, 30 , 30) , • POM  78  KAMI'S  ' , M5GI  EVEL=  (2,  C) 
//STL? 1 1 EXEC  PGM=SORT, REG  I ON= 3 00 K, PA RM = 'C ORF  = 3 0C  :,S7ZE  = MAX' 
//SQRTTN  DD  D3N  = WEU2JJJ.DEI7AVX,D',SP=  (01  P,  KEEP)  , 0 IIT=  FT  L7. , 

//  VOL=S,?R  = ETLE32#DCB-  (P2CFM=FE, LPECL=  <3C,  BLK3  T7E=  1 2 °°  2) 

//SO  PTC  'IT  DD  DSN=DrDELTAS,DISP=  (NEW, PASS,  DELETE)  , !NII=SYSDA, 

//  SPACE"  (TRK , (00,10)  , RLSE)  , DCB=*. SORTIN, 3E?  = (3C  TIN) 

//.iUJTLIB  DD  DSN=KSORTLTP,DISP=  (SUP, PASS)  , 3EP=  ( 302TI  N , SOPTO  UT) 
//SORrWKOI  DD  UN7T=SYSDA,  SPACE  = (C  YL  , (3)  , , CONTIS)  , 

//  S£:  = (30RTIN,SGRT0UT,S0.3TL'r3) 

//SORT W '<02  DD  !INTT=SYSDA,SPACE=(CYLf  (3)  , ,CQNT7G ) , 

//  (SORTIN',  SORTOUT,  SORTLTB, SORT W KOI) 

//SORTKK03  PD  UN  I T = S YSD A, 3?  ACF  = (CYL,  (3)  , , CON  TIG)  , 

//  3EP=  (SORTIN',  SOPTO DT,  SOPTLIc,  SOPTWK01  ,SORTWK02) 

//SYSOUT  DD  S Y S 0 U T = A 
//SY SO  DUMP  DD  DUMMY 
//->  YS  IN  DD  * 

SORT  FTFI  DS=  ( in,  S,  A)  , E'OSM  AT  = CH,  FTI.SZ  = ’7  120C0C 
END 

//3TrP  1 2 "XEC  CBI.ACAI  L , N A K F=  ’ WEU2LIC . N A KPS78 • , D I SK=  ? DSr  0 0, 

//  PHO3RAM  = SliPPREPT,CORE=200K 

//GO.  D LL  TA  v DC  DS N = 6 i' DELTAS,  DISP=  (OLD,DLIETE)  ,UNIT=SYSDA, 

//  DC  B=  (RECF.M  = FB,LRECL  = 33D,BLKSIZE=12RP2) 

//GO. DELTSX  DD  DS  N = W EU2  LL  C . SDSLTA  XY , DISP= ( SK R , K ESP)  , U NIT  = FI LS , 

//  VOL  = SEP=FIL217,DCB=  (RECFM  = ?2,  LR’?CI=  3 39 , 3LK  S TZr  = 1 2 8P  2) 

//GO . R E?  RT  DD  SYS  OUT  = A 


Data  Sets  Required: 

1)  //SORTIN,  DELTAXX,  sequential  data  set  with  extracted 
billets  for  delta  XX. 


2)  //GO. DELTSX,  SDELTAXX,  sequential  data  set  with 

calculated  support  for  delta  XX. 


Preparation: 

1)  Extract  DDSUPPREPT  from  DDJOBS78 


2)  //SORTIN,  DELTAXX,  change  XX  to  the  specified  delta 
number. 


3)  //GO. DELTSX,  SDELTAXX,  change  XX  to  the  specified  delta 

number. 


— , 


Generated  Output: 

1)  //GO.REPRT,  SYSOUT=A,  before  and  after  report  displaying 
support  billets  for  delta  XX. 


Sample  Output: 


PEL  TA  = 7'7 

PAY  CTA 

rjx  • c* 

SPO  1808=01 

E 1 

E2 

E3 

ALSP 

PELT  A 

■*0 

*0 

40 

PT77 

SOT P-TATL 

♦ 0 

-*0 

40 

TOTAL-DELTA 

♦ 0 

♦ 0 

40 

ALSP 

DELTA 

♦ 0 

■•0 

44 

FT  78 

F ITT  P-TATL 

♦0 

+ 0 

— 4 

TOTAL— PELT A 

♦ 0 

+ 0 

40 

ALSP 

DELTA 

♦ 0 

40 

4 4 

FY  79 

SOFP-TATL 

-» 0 

40 

4 1 

TOTAL-DELTA 

+ 0 

40 

45 

ALSP 

DELTA 

♦ 0 

40 

44 

FT80 

EUPP-TAIL 

40 

40 

-2 

TOTAL-DELTA 

+ 0 

40 

42 

ALSP 

DELTA 

+ 0 

40 

44 

PY8  1 

S’JPP-TAIL 

♦ 0 

40 

40 

TOTAL-DELTA 

+ 0 

40 

44 

ALSP 

DELTA 

-*0 

40 

44 

Fv82 

S OPP -TAIL 

♦ 0 

40 

40 

TOTAL-DELTA 

♦ 0 

40 

44 

E4 

E5 

E6 

E7 

E9 

E9 

TOTAL 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

• 40 

40 

40 

40 

-282 

-328 

-169 

-108 

-64 

-15 

-961 

-18 

-16 

— 9 

-9 

-2 

40 

4«41 

-301 

-344 

-177 

-117 

-66 

-15 

-20 

-282 

-328 

-168 

-108 

-64 

-15 

-961 

412 

413 

49 

42 

4 3 

4 1 

441 

-270 

-315 

-159 

-105 

-61 

-14 

-920 

-282 

-328 

-168 

-ms 

-64 

-15 

-961 

-22 

-20 

-11 

-9 

-6 

-1 

4929 

-304 

-348 

-179 

-117 

-70 

-16 

-32 

-282 

-328 

-168 

-108 

-64 

-15 

-961 

-4 

-3 

-4 

-1 

-1 

40 

-13 

-286 

-331 

-172 

-109 

-65 

-15 

-974 

-282 

-328 

-168 

-108 

-64 

-15 

-961 

-12 

-8 

-7 

—5 

-3 

40 

-35 

-294 

-336 

-175 

-113 

-67 

-15 

-996 
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5.0  ENLISTED  REQUIREMENT  SUBSYSTEM 


DYNAMICS.  INC. 

15825  SHADY  GROVE  ROAD 
ROCKVILLE.  MARYLAND  20850 


5.1  General: 

The  Enlisted  Requirement  Subsystem  accomplishes  the 
following  tasks:  enlisted  base  load,  base  constraints  application,  and 
enlisted  base  update. 

5.2  Enlisted  Base  Load: 

The  Enlisted  Base  Load  subsection  allows  for  loading  of  the 
Enlisted  requirement  from  two  sources,  NAVCOSSACT's  QRA  System 
and  the  Billet  File  of  MAPMIS.  The  QRA  System  requirement  base 
does  not  detail  billet  counts  to  the  sponsor  level.  Consequently, 
DDEBASELD  generates  a Base  indicating  sponsor  distribution  for 
subsequent  use  in  distributing  the  QRA  derived  base  to  sponsors.  Two 
additional  sub-tasks  in  this  subsection  operate  exclusively  on  QRA 
requirements  bases.  DDFORMAT  reformats  a QRA  base  to  conform 
to  a common  MINI-NAMPS  BASE  format  while  DDYRSSUB  creates  a 
new  base  using  selected  billets  from  two  reformatted  QRA  enlisted 
requirement  bases. 


5.2.1  DDRAWREQ 

The  Job  and  Its  Purpose: 

DDRAWREQ  is  the  initial  step  in  the  formatting  of  a 
new  requirement  data  base.  It  reads  the  magnetic  tape,  sorts 
the  data,  and  places  it  on  disk. 


//LLCGETRR  JOB  (WE 02, 386,  B)  ,'POK  ^8  NAMPS' 

/♦MESSAGE  035461, PS 

//♦  SOFT  REQMNTS  BY  SPONSOR  # RATE  CODE 
//  EXEC  LITSRT 

//SCRTIN  DD  1JNIT=2420rVOL  = (PRIVATE, RETAIN, SER  = 035461)  , 

//  DSN=REQMNTS.OEDYJAN,LABEL=  (1  ,SL)  ,DTSP=  (OlE,KFEP) 

//SORTOOT  DD  DSN=WE02LLC.RAWFEQ. DATE, UNIT =F I L F , DI SP = ( NEW , KEEP)  , 
//  VOL=SER=FTLE35,DCB= (RECFM=FB,LRECL=53,BLKSIZE=3498) , 

//  SPACE=  (TRK,  (100, 10)  ,RL5E) 

//SYSIN  DD  * 

SORT  FTELDS=(1T,2,A,',,5,A)  , EOR  M A T = CF! , S TZE=  E 3 60  0 0 

/* 


I 

I 

I 
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Data  Sets  Required: 

1)  //SORTIN,  REQMNTS.UEDYJAN,  the  requirement  data 
base  received  from  the  MAPMIS  Billet  File  on  magnetic 
tape. 

Preparation: 

1)  Extract  DDRAWREQ  from  DDJOBS  78 

2)  Change  MESSAGE  and  SORTIN  cards  to  reflect  current 
tape  volume  number 

3)  Change  REQMNTS.UEDYJAN  to  tape  data  set  name  if 
necessary. 

Generated  Output: 

1)  //SORTOUT,  RAWREQ.DATE,  the  requirement  data 
base  sorted  by  rating  code  and  program  element 
sponsor. 

5.2.2  DDEBASELD 

The  Job  and  Its  Purpose: 

This  JOB  changes  the  format  of  the  53  byte  records 
placed  on  disk  by  DDRAWREQ  and  creates  a PL/1  regional  (3) 
data  set  containing  350  byte  records.  Each  350  byte  record  is 
accessible  by  rating  and  program  element  sponsor  and  contains 
the  number  of  billets  for  paygrade  (E1-E9)  per  fiscal  year,  i.e., 
a 9 by  6 array.  A total  record  per  rating  is  inserted  and 
identified  by  sponsor  code  99.  ALL  NAVY  totals  are  stored  in 
the  last  keyed  record  in  the  dataset  and  are  identified  by 
rating  code  9999. 
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//IICE6ASL  JO?  (MEU2,  30,3'')  , 'POM  78  N A H F S • 

//  EXEC  PLIXCALL, NAME=' WE82LLC. Nh3?S78* , OTSK=PDS005, 

//  PROG  R AM  = E5 A SFl D, CG  g ? = 1 6 n K 

//GO. IP  DD  DSN=WEU2LLC. RAWREQ. DAT F, D ISP= S HR , UNIT= F’ L E , 

//  VOL=SER=rILZ34,DCE=  (R  EC  FK  = FB  # LRECL=r>3,3LKSIZE  = 3498) 

//*  DO  1 MY  ED  CARD  BFMW  IF  1 APPEARS  TN  COl  G OF  'OPRN'  CARD 
//GO. 3ASE0DT  DD  DSN  = WEU2LLC.EA00S,DISP=  (NEW, KEEP)  , 

//  DCS  = (RECC’M  = F,  L R ECI  = 3G  0 , BLKSTZF=  3 £ 0,*  I MCT  = 1 , 0 F TC  D=  E)  , 

//  UN:T=FILE,SPACS= (TRK,  (1  12)  ) , VOL  = SER  FILE35 

//GO.  SYSODT  ED  SYSOUT=A 


//GO. 5YSPRI NT 
//GO. INRAT 
// 

// 

//GO. INS P 
// 

// 

//G0.5Y  -SIN 
DATE7 o yy 
ttt'I  9 s*23  7fi 
OPRN YZ  IP  105 


DD  SYSOUr=f. 


PD  DSN=WEU2LLC. NAM P 378. INDEX  (RATI NDV)  ,DI3P=SHR# 

DNTT=?ILF,VOL=SFR=PCS005f 

DC  F = ( R SCF M = F 3 , LP  ECE  =80 , ELrCSIZ  E=  3 1 20) 

DD  DSN=WEU2LLC. N A MP3 78. INDEX  (PESINE”)  , 0ISP  = SHR, 
UNI T= FILE, VOL=5ER=PES005, 

DCP  = (SECT M= FB, LRECL=80f 3LKSI ZE=31 20) 

ED  *,DCB=3LKSIZF=80 

PEKvUAL  DATA  USED  TO  SPREAD  QRA  DAT)  TO  SPONSORS 
BAS’D 

Data  Sets  Required: 

1)  //GO. IP,  RAWREQ.DATE,  the  output  data  set  gener- 
ated by  DDRAWREQ. 

2)  //GO.INRAT,  RATINDX,  index  containing  valid  enlisted 
ratings,  paygrades,  and  titles. 

3)  //GO.INSP,  PESINDX,  index  containing  valid  program 
element  sponsor  codes  and  titles. 

4)  //GO.SYSIN,  control  records. 

Preparation: 

1)  Extract  DDEBASELD  from  DDJOBS78. 

2)  If  old  EA  00S  still  exists  on  disk,  copy  to  tape  and  save 
as  an  historical  file  then  scratch  the  version  on  disk. 

3)  Adjust  //GO.SYSIN  control  cards  as  required. 

a)  DATE  control  card 

columns  5-6  Pom  year 

columns  8-9  range  of  years 

b)  TIT1  control  card 
columns  5-80  title 

c)  OPRN  control  card 

column  5 1 = no  report  generated,  else  0. 

column  6 1 = no  base  generated,  else  0. 

columns  8-9  number  of  sponsor  codes  inSPOINDX 
columns  11-13  number  of  rating  codes  in  RATINDX 
columns  15-19  base  identification  code 


TVS 


Generated  Output: 

1)  //GO.BASEOUT,  EAOOS  , PL/1  regional  (3)  data  set 
with  enlisted  requirements  by  sponsor,  rating,  and 
paygrade. 

2)  //GO.SYSOUT,  SYSOUT=A,  requirement  report  if  speci- 
fied, otherwise  all  NAVY  totals. 

Data  Set  Layouts: 


5 10  15  20  25  30  35  40  45  50  55  60  65  70  75 


PROGRAM:  EBASELD 


INPUT:  GO.  IP 


LRECL  = 53 


DSORG  = PS 


A - PROGRAM  ELEMENT  CODE 
B - NUMERIC  RATING  CODE  PLUS  GRADE  CODE 
C - RATE  CODE  (EXAMP  SN,  BMCS) 

D - P.E.  SPONSOR  CODE 

E - PROJ.  REQUIREMENTS  FOR  POM-YR  - 2 
F - PROJ.  REQUIREMENTS  FOR  POM-YR  - 1 
G - PROJ.  REQUIREMENTS  FOR  POM-YR 
H - PROJ.  REQUIREMENTS  FOR  POM-YR  + 1 
I - PROJ.  REQUIREMENTS  FOR  POM-YR  + 2 
J - PROJ.  REQUIREMENTS  FOR  POM-YR  + 3 
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'TylF4/!  We^eFeP' 

H s>  i-Ni  W3-VVV6  1 j/6  2 '/n  3 >D4  '/B  5 6 xf-ai  urgHi-y  yq  9 -^0f^u(,  4?WM 


PROGRAM:  EBASELD 


FILE: 


EAXXY 


LRECL  = 350 


DSORG  = DA  (REGIONAL  3) 


A - SPONSOR  (P.E.  ) CODE 
B - RATING  ABREV. 

C - NUMERIC  RATING  CODE 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES 


E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 
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r 

i 


i 


program 
blCNGuI 
' oi-oi 

h * : : m.  - 


P AT  J KG  - 


pat  ini. 


PAT  ISO  - 


h ATI 


PATIRG 


RATING  - 


RAT  j:.g 


Sample  Output: 


<♦  nr 

7 b R1  J.OUAL 

DATA 

UGKD 

TO  SRRFAE 

QHJL 

DATA  TO 

SPORSOES 

PAGE 

7 

FI 

GCAL 

YFAR 

1 

2 

3 

a 

GFADK 

5 

6 

7 

8 

9 

TOTAL 

m moo 

1977 

0 

0 

75 

183 

126 

210 

135 

19 

27 

775 

1978 

0 

0 

75 

183 

126 

210 

135 

19 

27 

77  5 

19/4 

0 

0 

75 

18  3 

1 zb 

210 

135 

19 

27 

775 

lyto 

0 

0 

75 

183 

126 

210 

135 

19 

27 

775 

1961 

0 

0 

75 

163 

126 

210 

135 

19 

27 

775 

19r  2 

0 

0 

75 

183 

126 

210 

135 

19 

27 

775 

F4  -It:  00 

1°77 

0 

0 

30 

113 

91 

155 

170 

20 

11 

590 

19  7u 

0 

0 

30 

113 

91 

155 

170 

20 

11 

590 

1979 

0 

0 

30 

113 

91 

155 

170 

20 

11 

59  0 

19t  0 

0 

0 

30 

113 

91 

165 

170 

20 

11 

590 

19b  1 

0 

0 

30 

113 

91 

155 

170 

20 

11 

590 

1 41:2 

0 

0 

30 

113 

91 

155 

170 

20 

11 

590 

10  5410 

197  7 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

1976 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

19  79 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

191  0 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

19  U 1 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

1492 

0 

0 

20 

37 

37 

33 

15 

1 

0 

143 

FO  5360 

1977 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1976 

0 

0 

C 

0 

0 

0 

0 

0 

1 

1 

1979 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

I960 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1961 

0 

0 

0 

0 

0 

a 

0 

0 

1 

1 

19b2 

0 

0 

0 

0 

0 

& 

0 

0 

1 

1 

IT  1000 

1977 

0 

0 

0 

0 

0 

109 

51 

28 

11 

199 

1978 

0 

0 

0 

0 

0 

110 

60 

28 

11 

199 

1479 

0 

0 

0 

0 

0 

110 

50 

28 

11 

199 

1980 

0 

0 

0 

0 

0 

110 

SO 

28 

11 

169 

1961 

0 

0 

0 

0 

0 

110 

50 

28 

11 

199 

IS  6 2 

0 

0 

0 

0 

0 

110 

50 

28 

11 

199 

LYN  1001 

14  77 

0 

0 

no 

113 

127 

0 

0 

0 

0 

280 

1474 

0 

0 

no 

113 

127 

0 

0 

0 

0 

260 

1979 

0 

0 

no 

113 

127 

0 

0 

0 

0 

280 

19  <10 

0 

0 

no 

113 

127 

0 

0 

0 

0 

280 

19S1 

0 

0 

no 

113 

127 

0 

0 

0 

0 

260 

1962 

0 

0 

no 

113 

127 

0 

0 

0 

0 

280 

ETA  1002 

1477 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

1476 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

1977 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

1960 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

1761 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

19.42 

0 

0 

20 

110 

130 

0 

0 

0 

0 

260 

IV  0350 

1977 

0 

0 

19 

25 

47 

. 1b 

10 

3 

0 

122 

mvr 

0 

0 

19 

25 

47 

18 

10 

3 

0 

122 

K*7° 

0 

0 

19 

25 

47 

18 

10 

3 

0 

122 

I'f’jC 

0 

0 

19 

25 

47 

18 

10 

3 

0 

122 

1 K! : 1 

0 

0 

19 

25 

47 

1u 

10 

3 

0 

122 

V 

0 

19 

26 

47 

18 

10 

3 

0 

122 
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5.2.3  DDFORMAT 

The  Job  and  Its  Purpose: 

DDFORMAT  reformats  an  enlisted  requirement  base 
from  NAVCOSSACT’s  QRA  System  and  creates  350  BYTE  data 
set  conformable  to  a common  MINI-NAMPS  base  format. 
Billets,  by  fiscal  year  and  paygrade,  are  stored  at  an  all 
sponsor  level  for  each  Enlisted  rating. 


//GS-'FOF  JO?  (KEU2,  386,3,  3C,3C)  FOB  79  NAMPS' 

//GO  EXEC  PLIYCALL,  N A!*F-  ' WFU2LLC.  NAMPS79  « , DT5K=PES005, 

//  PROG P AM-FORH A ?, COP E=  1 50 K , OPTIONS-=  'CS  (U8)  ' 

//GO.  AIN  DH  DSN  = W ? 'J  2GSX. INPUT. DAT  AS  ET,VOL  = SE3-FTIE07, 

//  UNIT-FILE, DISP= (OLD, KEEP)  , 

//  DCS-  (PEC?W  = e,B,LRECI=8r,,BLKSTZ3=31TC) 

//GO. INRAT  DD  DS N = W E-'  2LLC  . NAMPS^O  . INDEX  (RATTNDX)  ,DISP=SI1?, 
//  UNTT=rILE, VO!  =SER=PDS0C5, 

//  DCE-  (RZCP:t=F3,  LHECL  = 80,BLKST2E=3120) 

//GO. EB A SE  DD  DSN=WEU2GSy.E3ASFX,UNIT=?ILE, 

//  VOL-SER  = 'jIL?3c;,D7SP=  (NFW^F.E?)  , 

//  DCB=  (RECFM=F , LR2CL=  350,BLKSI73=  350)  , 

//  SPACE=  (TRK,  (1C)  ,PISE) 

//GO.SYSO'JT  DD  SYSOU?=A 
//GO. SYSPK7  NT  CD  5YSOGT=A 
//GO. SY S IN  DD  *, DCB=BLKSIZE=P0 
D ATE7d 

OPRN1J5  EA000 


Data  Sets  Required: 

1)  //GO.QRAIN,  INPUT.DATASET,  Enlisted  requirement 

base  from  QRA  with  billet  counts  by  rating. 

2)  //GO.INRAT,  RATINDX,  index  containing  valid  rating 
codes,  paygrades,  and  titles. 

3)  //GO.SY  SIN,  control  records 

Preparation: 

1)  Extract  DDFORMAT  from  DDJOBS78 

2)  //GO.QRAIN,  change  INPUT.DATASET  to  the  data  set 

name  of  the  QRA  requirement  base. 

3)  //GO.EBASE,  EBASEX,  change  X to  the  correct  En- 
listed requirement  base  number. 
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//GO.SYSIN 
a)  DAT! 


DATE  control  card 
columns  5-6  POM  year 
OPRN  control  card 


columns  5-7  number  of  ratings  in  RATINDX 
columns  9-13  base  identification  code  of 
reformatted  requirement  base. 


Generated  Output: 

1)  //GO.EBASE,  EBASEX,  reformatted  requirement  base. 
Data  Set  Layouts: 


PROGRAM:  FORMAT 


LRECL  = 80 


FILE:  QRAIN 


DSORG  = PS 


A - RATING/RATE 
B - BILLETS  FOR  1977 
C - BILLETS  FOR  197  8 
D - BILLETS  FOR  1979 
E - BILLETS  FOR  1980 
F - BILLETS  FOR  1981 


10  20  30 

40 

SO 

00  70 

310 

320 

330 

340 

»v 

PROGRAM:  FORMAT 

LRECL  = 350 

FILE:  EAXXY 

DSORG = PS 

A - SPONSOR  (P.E.  ) CODE 
B - RATING  ABREV. 

C - NUMERIC  RATING  CODE 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES 

E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 
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5.2.4  DDYRSSUB 

The  Job  and  Its  Purpose: 

The  QRA  requirement  base  is  restricted  to  a single 
paygrade  constraint  over  the  six  out  years.  Because  of  this 
inability  to  vary  the  top  six  paygrade  ratio,  DDYRSSUB 
creates  an  enlisted  base  using  requirements  from  several  QRA 
bases  with  different  paygrade  ratios. 


//GSX 

//GO 

// 

//no. 

// 

// 

//GO. 

// 

// 

//GO. 

// 

// 

// 

//GO. 

//GO. 

//C-0. 

CPRN 


YRS  JOE  ( 
EXEC  PT.TX 
PROGRAM 
EBASE1  CD 


ELAGE2  DD 


EEASE3  DD 


SYSOOT  DD 
SYSPRINT 
SYSIN  DC 
4 5 6 


WEI 2,  386, B,  30, 30)  , • POM  78  NAMPS' 
CAIL,NAME='  WEU2ILC. NAMPS78' , D'SK=PE5005, 
^YFSSDBfCORE^IEOKjOPTIONS^'CS { 4 P ) ' 
DSN=WEU2GSX.EBASE1  ,ukit=file, 

VOL  = SER  = FTLEO'7,  DISP^SHR , 

DCE= (R2CFM=F,LR ECL=350,BLKSI?E=350) 
DSN=W7T!2GSX.  EBASE2  ,UNTT  = ?ILE, 
VOL=SER=FILE07, DISP=5FR, 

DCE=  (RECFM  = F,IPECl=35G,BLKSTZE=3ciO) 

DSN=WEU2GSX. EBASE, UNIT=FILE, 
VOL=SER=FILE07,DISP= (NEW, KEEP) , 

DCB=  (REC?H=?, LPEC L= 350 , 3L KS T Z E= 3 5 0)  , 
SPACE=  (TRK,  (1)  ) 

SYSO(JT=A 
DD  S Y S 0 IJ T = A 
*, DCB=BLKSI7F=80 


Data  Sets  Required: 

1)  //GO.  EBASE1,  EBASE1,  enlisted  requirement  base  to 
which  changes  are  to  be  applied. 

2)  //GO.EBASE2,  EBASE2,  enlisted  requirement  base  from 
which  selected  billet  counts  are  to  be  extracted. 

3)  //GO.SYSIN,  control  record 
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Preparation: 


Extract  DDYKSSUB  from  DDJOBS78. 

//GO.EBASE1,  EBASE1,  change  EBASE1  to  the 
identification  code  of  the  appropriate  QRA  requirement 
base  if  necessary. 

//GO.EBASE2,  EBASE2,  same  as  step  2. 

//GO.SYSIN 
OPRN  control  card 

columns  6,  8,  10,  12,  14  out  years  in  EBASE2  to 

be  substituted  into  EBASE1. 


Generated  Output: 


GO.EBASE  3,  EBASE  3,  enlisted  requirement  base  made 
up  of  selected  years  from  EBASE  1 and  EBASE  2. 


5.3  Base  Constraints  Application: 

Along  with  the  modification  made  possible  by  the  Enlisted 
Base  Update  subsection,  the  system  is  also  capable  of  making  the 
following  adjustments  to  the  Requirement  data  set. 

1)  Adjusting  the  total  end  strength  by  fiscal  year. 

2)  "Fencing"  specified  ratings  from  changes  by  fiscal  year. 

All  the  above  modifications  are  carried  out  at  the  appropriate  level 
of  detail  by  the  ARTESIA  program.  Three  additional  programs  are 
required;  one  to  format  the  input  to  ARTESIA;  one  to  reformat  the 
output  from  ARTESIA;  and,  since  ARTESIA  operates  on  ratings 
without  regard  to  program  element  sponsor,  one  to  reapportion  the 
requirements  to  each  program  element  sponsor. 

5.3.1  DDARTIN 

The  Job  and  Its  Purpose: 

DDARTIN  extracts  the  total  billets  by  rating,  paygrade, 
and  fiscal  year  from  a Mini-NAMPS  PL/1  regional  (3) 
requirement  data  set  and  formats  each  record  for  input  to 
ARTESIA. 


//LLCARTIN  JOB  (WEU2,38fc,B,  30,30)  ,'POM  78  HARPS' 

//  EXEC  PLIXCALL,NAME='WEU2LLC.NAKPS78',DISK=PDS00I3, 

//  PROGRAM=ARTTN,CORE= 100  K 

//GO. OPT  DD  DSN=WE02LLC. ART. INBASID, DISP= (NEW, KEEP) , 

//  VOI=SER=FILE36,DCB=  (PECFM  = FB,LRECL-80,BLKSIZE  = 3120)  , 

//  UNI T= FILE, SPACE=(TRK,  (4,1)  ) 

//GO. IN  DD  DSN=WEU2LLC.BASID,DISP=SHR, 

//  DCB=  ( RECFf1=  F , LRECL=350,BLKSIZE=35G,LIMCT=  1 ,OPTCD=E)  , 

//  UNIT  = FTLE,VOL  = SEP=:FTLE36 
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i 


Data  Sets  Required: 

1)  //GO.IN,  BASID,  any  Enlisted  requirement  data  set. 
Preparation: 

1)  Extract  DDART1N  from  DDJOBS78 

2)  //GO.IN,  change  BASID  to  the  appropriate  Enlisted 
requirement  base  identification  code. 

3)  //GO. OUT,  ART.INBASID,  change  BASID  to  the  En- 
listed requirement  base  identification  code. 

Generated  Output: 

1)  //GO. OUT,  ART.INBASID,  input  data  set  for  ARTESIA. 

Data  Set  Layouts: 


B 


C 


D 


it.  ULlO-i 


iO  15  20  25  30  35  40  45 


■I I ““I  ‘I  I I ' 

50  55  60  65  70  75 


PROGRAM: 

ARTIN 

LRECL  = 80 

OUTPUT: 

GO.  OUT 

DSORG = PS 

A - RATE  (EXAMP:  BM4,  ADCM) 

B - PROJ.  REQUIREMENTS  FOR  POM  YR  - 1 
C - PROJ.  REQUIREMENTS  FOR  POM  YR 
D - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
E - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
I F - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 

G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 

I 
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5.3.2  DDARTESIA 

The  Job  and  Its  Purpose: 

DDARTESIA  adjusts  the  top  six  ratio  and  end  strength 
of  the  Enlisted  requirement  data  base  by  fiscal  year.  It  also 
allows  for  "fencing"  specified  ratings  from  changes  by  fiscal 
year.  If  desired,  DDARTESIA  produces  two  output  card  decks. 
One  card  deck  serves  as  input  to  the  FAST  model,  which  can 
then  project  a new  inventory  based  on  the  new  requirement 
data  base.  The  other  card  deck  serves  as  input  to  STAPLAN,  a 
system  that  determines  training  requirements. 


//LLCAPTO  JOB  (WEU2, 386, B, , 10) , ' PCM  78  M AMPS' 

//PUNIT  EYFC  FOPGCALL,NAME='  WFU2LLC.  N A M PS78 ' , DISK=?DSr'CS, 

//  PPOGFAM-APTESIA,CQPE= 1 4 OK 

//GO. FT1 6F00  1 DD  DUMMY, DC 3=BLKS IZ E = 80 

//GO.  FT04F00  1 DD  S YSOtJ  T=  A , DC  B=  (R  ECFM  = FA  , LR  FC  L=  1 3 3 , BLK3T  7 E=  1 3 3) 
//GO. F T 1 Cr  0 0 1 DD  DUMMY 

//GO.FT11F001  DD  DSN= WEU2LLC. ART. OTBAST D, U N IT=?TLE, 

//  DIG P = (NEW, KEEP) ,DCB= ( LR ECL= 80 , BLKSI 2 E= 3 1 2 0 , R ECF M= FB) , 

//  S P AC E=  ( TPK , (2,1))  , VOL=SER=FIIE36 

//GO. FT0  5F00  1 DD  Utf TT=FILE,DTSP=SHB, VOL=SER=FI1E06, 

//  DSN=WEU2LLC.ARTE5IA. DATA.BASID 
//GO. FT09F00  1 DD  DSM =WE02LLC. ART. TNBASTD , 

//  TJNIT  = FILE,VOL=SER  = FILE36,DISP  = SHR 

//GO.  FT07E00  1 DD  DSN  = WE  11 2LLC. STAPLAN.  BA. STD.INDTV,UNIT  = PIIE, 

//  VOL=SER=FILE36,DCB= (RECFM=FB, LP ECL= R 0 , BLKS IZ E=P 0 ) , 

//  SPACE=  (TRK,  (2,  1) ) ,DISP=(NEW, KEEP) 

//GO. FT08F00  1 DD  DS N= WEU2 LLC . F AST . BAS  ID , UN IT  = FILE , DIS P= ( NEW , KEF ?)  , 
//  VOL-SER=FILE36, DCB= ( RECPM=FB , LP EC L= 8 0 , BLKS I? E= 80 ) , 

//  SPACE=  (TRK,  (2,  1)  ) 

Data  Sets  Required: 

1)  //GO.FT05F001,  ARTESIA. DATA.BASID,  the  input 

control  file,  (see  Preparation) 

2)  //GO.FT09F001  ART.INBASID,  the  input  Enlisted 

requirement  data  set  produced  by  DDARTIN. 


Preparation: 

1)  Extract  DDARTESIA  from  DDJOBS78 

2)  //GO.FT09F001  ART.INBASID,  change  BASID  to  the 
appropriate  requirement  base  identification  code. 


A 
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3)  //GO.  FT11F001,  ART.OTBASID,  same  as  step  2. 

4)  //GO.  FT07F001,  STAPLAN.BASID,  same  as  step  2. 

5)  //GO.  FT05001,  ARTESIA.DATA.BASID,  make  the 
following  modifications: 

a)  Line  1 contains  the  first  year  to  be  processed, 
followed  by  the  number  of  years  to  be  processed 
repeated  three  times  (i.e.  "77060606"  for  FY  77 
for  the  first  year,  6 years  to  be  processed) 

b)  Line  numbers  12  through  17  contain  authorized 
end  strengths  by  paygrade  in  columns  12  through 
70.  Desired  end  strengths  are  in  columns  73-78. 
The  last  two  digits  found  in  columns  79-80 
indicate  to  ARTESIA  what  modifications  to 
perform.  The  codes  are  defined  as  follows: 

00  = throughput  data,  do  not  modify 

01  = modify  incoming  requirements  to  specified 
paygrade  totals. 

02  = modify  incoming  requirements  to  the  ALL 
NAVY  endstrengths  specified  in  columns  73-78 
without  regard  to  paygrade  totals. 

Generated  Output: 

1)  //GO.  FT04F001,  SYSOUT  = A,  provides  a before/after 
adjustment  audit  trail  and  indicates  any  unmatched  or 
missing  ratings. 

2)  //GO.  FT07F001,  STAPLAN.BASID,  data  set  that 
serves  as  input  to  STAPLAN. 

3)  //GO.  FT11F001,  ART.OTBASID  , adjusted  output 
requirement  data  set  which  must  be  reformatted  by 
ARTOUT  and  reapportioned  by  ESPAPP. 


I 
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LRECL  = 80 
DSORC'i  = PS 

A - RATE  CODE 

B - PROJ.  REQPIREMENTS  FOR  POIV1  YR  - 1 
C - PROJ.  REQUIREMENTS  FOR  POM  YR 
D - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
E - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
F - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 
G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 


PROGRAM:  ARTESIA 

OUTPUT:  C.O.FT07F001  (PARTI) 


PROGRAM:  ARTESIA  LRECL  = 80 

OUTPUT:  GO.FT07F001  (PART  2)  DSORG  = PS 


A - STAPLAN  (D  CODE 
B - NUMERIC  RATING  CODE 
C - PROJ  REQ  FOR  PAYGRADE  El 
D - PROJ  REQ  FOR  PAYGRADE  E2 
E - PROJ  REQ  FOR  PAYGRADE  E3 
F - PROJ  REQ  FOR  PAYGRADE  E4 
G - PROJ  REQ  FOR  PAYGRADE  E5 
H - PROJ  REQ  FOR  PAYGRADE  E6 
I - PROJ  REQ  FOR  PAYGRADE  E7 
J - PROJ  REQ  FOR  PAYGRADE  E8 
K - PROJ  REQ  FOR  PAYGRADE  E9 
L - PROJ  REQ  FOR  PAYGRADES  E1-E9 
M - STAPLAN  ID  CODE 


PROGRAM:  ARTESIA  LRECL  = 30 

OUTPUT:  GO.  FT08F001  (FAST/ADIN)  DSORG  = PS 

A - RATING  ABBREVIATION 
B - NUMERIC  RATING  CODE 
C - FISCAL  YR  PROJECTED 
D - ADIN  ID  CODE 

E - PROJ.  REQUIREMENTS  FOR  POM  YR  - 1 
F - PROJ.  REQUIREMENTS  FOR  POM  YR 
G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
H - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
I - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 
J - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 
K - ADIN  ID  CODE 
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A - STAPLAN  P.C..  ID  CODE 
'405'  = E3 
'406'  = E4-E9 

R - PROJ . REQUIREMENTS  FOR  POM  YR  - 1 
C - PROJ.  REQUIREMENTS  FOR  POM  YR 
D - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
E - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
F - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 
G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 
H - PROJ.  REQUIREMENTS  FOR  POM  YR  + 5 
I - RATING  ABBREVIATION 


PROGRAM:  ARTESIA  LRECL  = 80 

INPUT:  GO.  FT09F001  (Requirement  Cards)  DSORG  = PS 

A - RATE  (EXAMP:  BM4,  ADCM ) 

B - PROJ.  REQUIREMENTS  FOR  POM  YR  - 1 
C - PROJ.  REQUIREMENTS  FOR  POM  YR 
D - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
E - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
F - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 
G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 
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-t 1 1 1 1 1 1 1 * i i 1 r 

to  15  20  25  30  35  40  45  50  55  60  65  70  75 


PROGRAM:  ARTESIA 

OUTPUT:  GO.  FT1 1 F001  (Requirement  File) 


LRECL  = 80 
DSORG  = PS 


A - RATE  (EXAMPLE:  BMCS,  ADJSN) 

B - NUMERIC  RATING  CODE 
C - PAYGRADE 

D - PROJ.  REQUIREMENTS  FOR  POM  YR  - 1 
E - PROJ.  REQUIREMENTS  FOR  POM  YR 
F - PROJ.  REQUIREMENTS  FOR  POM  YR  + 1 
G - PROJ.  REQUIREMENTS  FOR  POM  YR  + 2 
H - PROJ.  REQUIREMENTS  FOR  POM  YR  + 3 
I - PROJ.  REQUIREMENTS  FOR  POM  YR  + 4 
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5.3.3  DDARTOUT 


I 


I 

I 

I 

I 

I 


The  Job  and  Its  Purpose: 

DDARTOUT  reformats  the  ARTESIA  output  to  conform 
to  the  common  350  byte  M1NI-NAMPS  base  format.  The  PL/1 
regional  (1)  data  set  allows  the  user  to  access  the  requirement 
base  by  rating  for  each  paygrade  and  fiscal  year. 


//LLCAROOT  JOB  (WEU2, Jdr,B) , ' POM  7a  NA1PS’ 

//  EXEC  PLTXCALL, NAME= ' WEU2LLC . NAMPS78' , D I S K = P DS00 5 , 
//  PROGRAH  = A8TOrlT,CORE  = 100K 

//GO. GYSPRTNT  DO  SYSOUT=A 

//GO.  IN  DD  t!NIT  = FTLE,VOL=SES  = FILE36,OTS?=SHR, 

//  DS  J»  = WFU 21 1 C.  ART.OTBASID 

//GO.  OUT  CD  UNIT  = FILE,  DISP=  (,  KEEP)  , 

//  DSN=WE'J2LLC.BASID69,SFACE=  (TPKf  (2,2)  ) , 

//  VOL=SEB=FTLE3«, DC3= (5ECFK=F , IRECI=35^,FLKSIZF=350) 
//GO. SYS  IN  OD  *, DC3=3LKSIZ E=80 
CPRN  BA  STD 
/* 


Data  Sets  Required: 

1)  //GO.  IN,  ART.OTBASID,  output  data  set  from 
ARTESIA. 

2)  //GO.SYSIN,  control  record 
Preparation: 

1)  Extract  DDARTOUT  from  DDJOBS78 

2)  //GO. IN,  ART.OTBASID,  change  BASID  to  the  require- 

ment base  identification  code  of  the  ARTESIA  output 
data  set. 

3)  //GO. OUT,  BASID69,  change  BASID  to  the  appropriate 
base  identification  code,  (same  as  step  2) 

4)  //GO.SYSIN 
OPRN  control  card 

columns  6-10  insert  base  identification  code 
Generated  Output: 

1)  //GO. OUT,  BASID69,  PL/1  regional  (1)  data  set  contain- 

ing the  adjusted  requirement  base.  It  is  input  to 
DDESPAPP. 
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Data  Set  Layouts: 


40 


PROGRAM:  A R TOUT 

INPUT:  GO.  IN 

A - RATE  (EXAMPLE  BMCM) 

B - NUMERIC  RATING  CODE 
C - PAY  GRADE 

D - REQUIREMENT  FOR  POM  YR  - 1 
E - REQUIREMENT  FOR  POM  YR 
F - REQUIREMENT  FOR  POM  YR  + 1 
G - REQUIREMENT  FOR  POM  YR  + 2 
H - REQUIREMENT  FOR  POM  YR  + 3 
I - REQUIRE  MENT  FOR  POM  YR  + 4 


Data  Set  Layouts: 


B 

C 

s L , E i 

> ^ v.yj  F^'Ejp  \ 

yo i ('bv'f'QL. ro^K  ' 

310  32U  33u  ur 


PROGRAM:  A R TOUT 

FILE:  //GO. OUT 


LRECL  = 350 

DSORG  = DA  (REGIONAL  I ) 


14' 


A - SPONSOR  (P.E.  ) CODE 
R - RATING  A PREY. 

C’  - NUMERIC  RATING  CODE 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
0 PA  YGRADES 

E - 6th  FISCAL  YR  (POM  YR  +4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 
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5.3.4  DDESPAPP 

The  Job  and  Its  Purpose: 

Because  the  ARTESIA  program  disregards  program 
element  sponsor  codes,  the  result,  BASID69,  no  longer  contains 
them.  DDESPAPP  reapportions  the  adjusted  requirement 
ratings  to  program  element  sponsors.  It  achieves  this  by 
applying  a ratio  (rating  per  program  element  sponsor/total 
rating)  to  the  rating  totals  of  BASID69.  This  ratio  is  computed 
from  the  unadjusted  requirement  data  set  as  output  by 
DDEBASELD. 


//LLCESPAP  JOE  (WEU2, 386, C,  30, 30) , • POM  78  N A M P S • 

//  EXEC  PLIXCALLfNAME='WEfJ2LLC.NAMPS78' ,DISK=PES005, 

//  PROGRAM=ESPAPP,CORE=160K 

//GO.  ERE^SP  DD  DSN=WEU2LLC.  EA00S,  DISP=OLD,  PNI  ?=FI  LE  , VOL  = SER  =B'IIE3  5 , 
//  DCB=  (RECFM=F,LRECL=350,BLKSIZE=350, LI HCT= 1 ,OPTCD=E) 

//GO. EREQI N 1 DD  DSN=HEU2LLC . B AST D69 , DISP= SHF , U N IT= FT LF , 

VOL=SER=FILE34,DCB=  (RECFM  = F,  LRECL=350,  BLKSIZ£:  = 350) 

DD  DSN  = WF'I2LLC.  B AST  D69  , DIS  P=  SHR  f U N IT=  FI  I E , 
VOL=SER=FTL£34,DCB= (RECFM=F, LR ECL  = 350 , BLK S IZ E=3 50) 

DD  DSN  = WEH2LLC. BASED, DISP=  (MEW, KEFP)  ,UNIT=FILE, 


// 

//GO. EREQTNO 
// 

//GO. 2REQ0UT 


//  V0L=SER=FT1E34,DCB= ( RECFM=F, LR ECL= 350 , BLKSI Z E=350 , LT MCT= 1 , 0PTCD=E) , 


// 

//GO. R ATINDX 
// 

// 

//GO.SYSIM 


SP ACE=  (TRK  , (112)) 

DD  DSN=WFU2LLC. NAMPS78. INDEX (RATINDX) , 

DISP=SHR, 0NIT=FILE, 

VOL=SER=PDS005,DCB=  (R  ECFM=  FB , LRECL=80 , BL K STZ E=3 1 2 0) 
DD  *,DCB=BLKSTZE=90 


CPRN  105  BASIC  T 


/* 
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Data  Sets  Required: 

1)  //GO.EREQSP,  EAOOS,  PL/1  regional  (3)  data  set 
containing  unadjusted  requirements  by  sponsor, 
rating,  paygrade,  and  fiscal  year,  (output  from 
DDEBASELD). 

2)  //G0.2REQIN1,  BASID69,  PL/1  regional  (1)  data 
set  containing  requirements  by  rating  (output 
from  DDARTOUT), 

3)  //GO.EREQINO,  BASID69,  sequential  data  set 

containing  requirements  by  rating  (output  from 
DDARTOUT). 

4)  //GO.RATINDX,  RATINDX,  index  containing 
valid  enlisted  rating  codes,  paygrades,  and  titles. 

NOTE:  BASID69,  the  output  from  DDARTOUT,  may  be 
a sequential  or  direct  access  data  set.  Coding  for  both 
types  of  data  sets  are  included  in  the  JCL  and  the  user 
must  specify  on  a control  card  that  type  which  is  to  be 
accessed. 

Preparation: 

1)  Extract  DDESPAPP  from  DDJOBS78. 

2)  //GO.EREQIN1,  BASID69,  change  BASID  to  the 

base  identification  code  of  the  unapportioned 
requirement  data  set  from  DDARTOUT. 

3)  //GO.EREQINO,  same  as  step  3 

4)  //GO.SYSIN 
OPRN  control  card 

columns  6-8  number  of  ratings  in  RATINDX 
columns  10-14  base  identification  of  output  data 
set 

column  16  if  1,  then  BASID69  will  be  read  as 
direct  access  regional  (1).  If  0, 
then  BASID69  will  be  read 
sequentially. 


f 
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Generated  Output: 

1)  //GO.EREQOUT,  BASID  PL/1  regional  (3)  direct  access 
data  set  with  requirements  by  rating  reapportioned  to 
include  program  element  sponsor.  The  data  set 
conforms  with  the  common  MINI-NAMPS  base  format. 


. i 

n 

» i 


r~» 

[J 


il 


5.4  Enlisted  Base  Update: 

POM  78  MINI-NAMPS  maintain  a permanent  Enlisted  require- 
ment base  with  the  capability  of  creating  an  updated  version  on  an  as 
required  basis.  DDEUPDATE  will  update  any  Enlisted  requirement 
base  using  a selected  DELTAXX  with  generated  support  and  create  a 
new  base.  It  is  the  responsibility  of  the  staff  to  identify  this  new 
data  set  as  a new  master  base  or  an  alternate  base. 

5.4.1  DDEUPDATE 

The  Job  and  Its  Purpose: 

DDEUPDATE  creates  a PL/1  regional  (3)  Enlisted 
requirement  base  by  updating  an  existing  base  with  a selected 
delta  and  generated  support  billets.  Requirements  are  stored 
in  the  data  set  by  fiscal  year  and  paygrade  and  are  accessable 
by  rating  code  and  program  element  sponsor.  A report  is 
generated  to  display  total  requirement  changes  by  fiscal  year 
and  paygrade. 


//GZCJPTP  JO 3 (WEU2,  386  rE)  , • POM  78  NAMPS’ 

//PLI  EXEC  PLIXCALL,NAKF='  WSU2LLC.  NAKPS78'  , D I SK=PDS 0 05 , 

//  PROGRAM^ UPDATE, COR E=200K 
//GO.RATTNDX  DD  DSN=WEU2LLC. NAMPS78. INDEX (RATINDX)  , DT S?=  (SH  R, KEEP)  , 
//  VOL =SER=PDS005,M NIT-FILE, DCB= { R £CFM=F B, LRECL=80 , 

//  BLKST7E“3 120) 

//GO. DESINDX  DD  DUMMY 

//GO.REQIN  DD  DSN  = WEU2LLC. SDEL7AXX,DISP= (5HR , KEEP)  f 
//  V0L=SER=FILE17,UNir=FTLE, DCB= ( RECFM=F B , LR ECL=3 39 , B L KSI ZE= 1 28 82 ) 

//GO. DAT  EBP  DD  DSN=ME02LLC. EAXXY, DISP= (OLD, KEEP) , 

//  VOL  = 5ER  = FILE34,UNIT=e'ILE,  DCB=  (RECFii=F  , I RECL=350,  LT  KCT=  1 , OPTCD=E) 
//GO. NEWBASE  DD  D5N=MEU2G7C.EAZZY,DISP= (NEW, KEEP) ,UNTT=FILE, 

//  VOL  = SER=FILE39,DCB= (R ECFM  = F , LSECL=3 50, LI MCT= 1 ,OPTCD =E)  , 

//  SPACE=  (TPK,  1 12) 

//GO.SYSOUT  DD  SYSOOT=A 
//GO.  SYSPRTNT  DD  SYSOrJT=A 
//GO. SYS  IN  DD  * 

OPRN2  1976  105  ZZZZZ  YYYYY 

TITL  ENL’STED  REQUIREMENTS  UPDATE  REPORT  - 
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Data  Sets  Required: 

1)  //GO.REQIN,  SDELTAXX.cxtructed  delta  plus  support 
billets  Croat  DDKKFOKM AT. 

2)  //GO.DATEUP,  EAXXY,  enlisted  requirement  base  to 
which  update  billets  are  applied. 

3)  //GO.RATINUX,  KATINDX,  index  data  set  containing 
valid  rating  codes,  paygrudes  and  titles. 

4)  //GO.SYSIN , control  records. 

Preparation: 

1)  Extract  DUEL) PL) ATE  from  DDJOBS78. 

2)  //GO.REQIN,  SDELTAXX,  change  XX  to  the  number  of 

the  extracted  delta. 

3)  //GO.DATEUP,  EAXXY,  change  to  the  base 
identification  code  of  the  master  Enlisted  requirement 
base. 

4)  //GO.NEWBASE,  EAZZY,  change  EAXXY  to  the  identi- 

fication code  of  the  new  Enlisted  requirement  base  (see 
Appendix  E for  detailed  instructions) 

5)  //GO.SYSIN 
OPRN  control  card 

column  5 2 for  enlisted  base  update 

columns  7-10  current  year 

columns  12-14  number  of  ratings  in  RAT1NDX 

columns  16-20  identification  code  of  new  base 

columns  22-26  identification  code  of  base  being 

updated. 

TITL  control  card 

columns  6-72  update  report  title 

Generated  Output: 

1)  //GO.NEWBASE,  EAZZY,  PL/1  regional  (3)  requirement 
base  after  delta  plus  support  has  been  applied. 
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2)  //GO.SYSOUT,  SYSOUT=A,  report  displaying  total 
requirement  changes  by  fiscal  year  and  paygrade. 

Data  Set  Layouts: 
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PROGRAM:  DDUPDATE 

INPUT  FILE:  GO.  REGIN 


LRECL  = 339 
DSORG  = PS 


A - DELTA  NUMBER 
B - O.E.G,  W 
C - PROGRAM  ELEMENT 
D - SPONSOR  CODE 
E - RATING  OR  DESIGNATOR  CODE 
Fjj  - BILLETS/MEN  FOR  FY  i AND  PAYGRADE  j.  (6x9  ARRAY) 
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1.1 


htci'li  0PLA1L  hEIORT  - 2NL1S7.I5  19/05/76 

♦♦♦rILLfcTS  H>l  2 LANK  RAlIJiG!:*** 


C-hALfc 


?I  AR 

1 

3 

4 

c 

6 

7 

fc 

9 

1977 

♦ 0000 

♦ocoo 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 0000 

19  7 1- 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 000  s 

♦ 0000 

♦ 0000 

♦ 0009 

♦ 0032 

♦ 0000 

1979 

♦ 0000 

♦ 0000 

♦ 0000 

♦0009 

♦0000 

♦ 0000 

♦ 0012 

♦0032 

♦ 0000 

I9t  0 

♦ 0000 

♦ 0000 

♦ooco 

♦ 0009 

♦ 0000 

♦ 0000 

♦0014 

♦ 0035 

♦ 0000 

1981 

♦ 0000 

♦0000 

♦ 0000 

♦ 0009 

♦0000 

♦ 0000 

♦ 0014 

♦ 0036 

♦ 0000 

1St2 

♦ 0000 

♦ 0000 

♦ 0000 

♦ 0009 

♦ 0000 

♦ 0000 

♦ 0014 

♦ 0043 

♦ 0000 

***SUSSI.F  01  LILLITS  ALDFL*** 


6 PALE 


1LAI 

1 

2 

4 

5 

b 

7 

8 

9 

1977 

-0047 

-0001 

-0015 

-0021 

-0031 

-0022 

-0015 

-0001 

♦ 0001 

1978 

-35b  1 

♦ 3127 

-3489 

-1739 

-0992 

-0700 

-0200 

-0099 

-001ft 

1579 

-2964 

*3941 

-0111 

-0035 

♦ 0224 

♦ 0072 

♦ 00  53 

-0059 

♦ 0005 

I960 

-1122 

♦ 24  b? 

-0299 

-0103 

♦ 0183 

♦ 0057 

♦ 0004 

-0072 

-001C 

1961 

-1014 

♦ 3299 

♦ 000  b 

♦ 0014 

♦ 0247 

♦ 0118 

-0020 

-0079 

-0007 

iVfci 

-1515 

♦ 3335 

-0177 

♦ 0020 

♦ 0352 

♦ 0234 

♦oo  ie 

-0056 

-0004 

L 


i i 
]• 
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6.  Enlisted  Inventory  Subsystem 

6.1  General: 

The  Enlisted  Inventory  Subsystem  accomplishes  the  two  major 
tasks  of  Inventory  Base  Load  and  MFAST  Inventory  Projection.  The 
Inventory  data  bases  specify  the  projected  manpower  available  to  the 
Navy  for  up  to  six  fiscal  years  and  are  created  from  magnetic  tape 
which  contain  output  from  the  ADSTAP  system. 

6.2  Inventory  Base  Load: 

ADSTAP.FAST  generates  an  Enlisted  Inventory  Projection 
based  on  a specified  Enlisted  Requirement  Base.  Sub-tasks  within  the 
Inventory  Base  Load  subsection  load  this  Projected  Inventory  Base 
and  make  adjustments  to  certain  Rating  structure  differences 
between  existing  personnel  planning  systems  and  manpower  planning 
systems.  DDESPAPP  then  distributes  the  Inventory  base  over 
Sponsors  and  stores  the  base  in  the  standard  Mini-NAMPS  format. 

6.2.1  DDV1DEXT 

The  Job  and  Its  Purpose: 

DDVIDEXT  selects  the  appropriate  data  (VID)  from  the 
ADSTAP  tape  provided  by  the  Navy  and  writes  it  to  a disk  data 
set. 


//LLCVIDX  JOE  (WE U 2, 386, B)  , * POM  78  NAMPS* 

/♦MESSAGE  034360, P 

//RUNIT  EXEC  F0RGCALL,NAME='WEU2LIC.NAMPS78* ,DISK=PDS005, 

//  PROGRAE=VIDEXT 

//GC.FT08F001  DD  DSN= ADSTAP. U *A ST. OUTP JT , DISP= (OLD, K" EP)  , 

//  rjN!T=24  20,  L ABEL=  (,SL)  , DCB=  (LRECL=  10  40,  BLKSIZE=52  04  , 

//  RECFM=VBS) , VOL=SER=03436O 

//GO. FT09F00 1 DD  0SN= WEU 2LLC . DX XXTNV, DTSP= (NEW , PASS) , 

//  VOL=SER=FILE36,UNIT=FILE,SPACE=(T?K,  (20,2))  , 

//  DCB=  (REC?M  = F3,  LRECL=80,  BLKSI7, E=31  20) 

//GO. FT  1 0F00  1 DD  * 

996  = VID  CODF  TO  BE  EXTRACTED  FROM  FAST  TAPE 

/* 

//SORT T EXEC  IITSRT 

//SORTIN  DD  DSN=WEU2LLC.DXXXINV,DISP= (OLD, DELETE) 

//SORTCUT  DD  DSN=WEU2L LC . FI N VLDT N . 3 A SI D , D! SP=  (NEW, KEEP)  ,UNIT=FILF, 
//  VOL=SER=FTLE36, SPACE=  (TRK,  ( 10, 2) ) , DCE  = *.SCRTTN 
//SYSIN  DD  * 

SORT  FI ELDS=  (9, 4, A,  13, 4, D, 1,4, A)  , FOR MAT=C K , SI Z E=E3 00 0 

/* 


-90- 


,4 


Preparation: 

1)  Extract  DDVIDEXT  from  DDJOBS78 


2)  //GO.FT09F001,  DXXXINV,  change  XXX  to  the  current 
month,  (i.e.  XXX=FEB  for  February) 

3)  //SORTIN,  same  as  step  2. 

4)  Insure  that  the  tape  volume  number  on  the  MESSAGE 
and  GO.FT08F001  cards  corresponds  to  that  of  the 
ADSTAP  - FAST  tape. 

5)  //SORTOUT,  EINVLDIN.BASID,  change  BASID  to  the 
appropriate  Inventory  base  identification  code. 


Generated  Output: 

1)  //SOilTOUT,  EINVLDIN.BASID,  a disk  data  set 
containing  selected  VID's  sorted  by  Rating,  VID,  and 
fiscal  year. 

Data  Set  Layouts: 


BINARY  TAPE  FILE 

READ  WITH  FORTRAN  UNFORMATED  READ 

(See  program  source) 


PROGRAM:  VIDEXT  LRECL  = 1040 

INPUT:  GO.  FT08F001  DSORG  = PS  (BINARY  DATA  FROM  ADSTAP.  UFAST) 


VARIABLE  1: 
VARIABLE  2: 
VARIABLE  3: 
VARIABLE  4: 
VARIABLE  5: 


RFY  - RELATIVE  FISCAL  YR. 

AFY  - ACTUAL  FISCAL  YR. 

RATING  - NUMERIC  RATING  CODE 
VID  - FAST  VARIABLE  IDENTIFICATION 
ARRAY  - PROJECTED  INVENTORY  (32.  8) 
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PROGRAM:  VIDEXT 

OUTPUT:  GO.  FT09F001 

A • RELATIVE  FISCAL  YEAR 
B - ACTUAL  FISCAL  YEAR 
C - NUMERIC  RATING  CODE 
D - VID  ('0996'  USED  FOR  POM  78) 

E - PAYGRADE  E1-E3  PROJ . INVENTORY 
F - PAYGRADE  E4  PROJ.  INVENTORY 
G - PAYGRADE  E5  PROJ.  INVENTORY 
H - PAYGRADE  E6  PROJ.  INVENTORY 
I - PAYGRADE  E7  PROJ.  INVENTORY 
J - PAYGRADE  E8  PROJ.  INVENTORY 
K - PAYGRADE  E9  PROJ.  INVENTORY 
L - PAYGRADE  E1-E9  PROJ.  INVENTORY 


r 


L_ 


LRECL  = 80 
DSORG  = PS 
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6.2.2  DDIBASELD 


The  Job  and  Its  Purpose: 

DDIBASELD  extracts  and  reformats  inventory  from  the 
preceding  sub-task  and  builds  a 6 by  9 array  with  inventory  by 
fiscal  year  and  paygrade  for  each  rating.  Adjustments  are 
made  for  super-ratings. 


L 


//LLCEIN 
//  EXEC 
// 

//GO. tl  N V 
// 

// 

//GO.  IN V P A W 
// 

// 

//GO. I NR 
// 

// 

//GO. SYS 
DATE76 
CPPNA  3 A 


VL  JOB  (kEM2,396,B, 30, 30) , 'PCM  N A M P 5 • 

PL  I >’C  ALL,  NAM  2= ' WFP2LLC . NAM Pi  78'  , DISK-PLS005, 
?SOGPAM=T3AGELD,CO3F=100K 

V DL  DSN  = Vr’2LLC. 3A S ID 69 , U NIT=F I L? , VOL=S ER=r TL E 3 4 , 
rTS?=  (N  FX  , K FF  ?)  , SPACE=  (IRK  , (c>)  ) , 
DCE=(7?CFM=F,L?ECL=330,DLKSTZE=350) 

PD  D3N  = XFG2L!  C.  EINVIDIN.  BA  .31 D,  DISP=  (OLD,  KEEP)  , 

DC 3=  (FECFM=FB,LRECL=80,3LKSI2E=  3 WC)  , MNTT=? T LE, 

VOL=SE£?  = FILE36 

DO  DSN=WE'J2LLC.  NAMPS7  9.  INDEX  (RATINDX)  , DIS T = S H P,  ON  IT=?T  L E, 
VOL=SES=F’LE35, 

TCP= (PECFM=F3,LRFCT -80, 5LK ST ? E= 3 1 20) 

CD  *,DGB=3LKSIZE=90 


? AT 


: TN 


SID  R9* 


Data  Sets  Required: 


1)  //GO.INVRAW,  EINVLDIN.BASID,  reformatted  ADSTAP- 
FAST  or  M-FAST  inventory. 

2)  //GO.INRAT,  RATINDX,  index  data  set  containing  valid 
Enlisted  rating  codes,  paygrades,  and  titles. 

3)  //GO.SYSIN,  control  records 


Preparation: 

1)  Extract  DDIBASELD  from  DDJOBS78. 

2)  //GO.INVRAW,  EINVLDIN.BASID,  change  BASID  to  the 
appropriate  identification  code  of  the  Inventory  data 
set  created  by  DDVIDEXT  or  DDMFAST. 

3)  //GO.EINV,  BASID69,  same  as  step  2. 

4)  //GO.SYSIN 

a)  DATE  control  card 
columns  5-6  POM  year 

b)  OPRN  control  card 

column  5 M=M-FAST  input 
A= ADST AP-F  AST  input 
columns  7-11  Inventory  base  identification 
code 

columns  13-15  VID  code  (usually  996) 
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Generated  Output: 

1)  //GO.EINV.BASID69,  PL/1  regional  (1)  data  set  con- 
taining an  Inventory  base  with  identification  code 
BASID.  Inventory  is  stored  by  fiscal  year  and  paygrade 
for  each  rating,  with  paygrades  1-3  totaled. 


Data  Set  Layouts: 


PROGRAM:  IBASELD 


LRECL  = 80 


OUTPUT:  GO.INVRAW 


DSORG  = PS 


A - RELATIVE  FISCAL  YEAR 
B - ACTUAL  FISCAL  YEAR 
C - NUMERIC  RATING  CODE 
D - VID  ('0996'  USED  FOR  POM  78) 

E - PAYGRADE  E1-E3  PROJ.  INVENTORY 
F - PAYGRADE  E4  PROJ.  INVENTORY 
G - PAYGRADE  E5  PROJ.  INVENTORY 
H - PAYGRADE  E6  PROJ.  INVENTORY 
I - PAYGRADE  E7  PROJ.  INVENTORY 
J - PAYGRADE  E8  PROJ.  INVENTORY 
K - PAYGRADE  E9  PROJ.  INVENTORY 
L - PAYGRADE  E1-E9  PROJ.  INVENTORY 
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LRECL  = 350 

DSORG  = DA  (REGIONAL  I ) 

A - SPONSOR  (P.E.  ) CODE 
B - RATING  ABREV. 

C - NUMERIC  RATING  CODE 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES 

E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 


PROGRAM:  IBASELD 
FILE: 

IAXXY 


i 


J 
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6.2.3  DDESPAPP 

The  Job  and  Its  Purpose: 

The  Enlisted  Inventory  Base  loaded  by  IBASELD 
contains  projected  inventory  at  the  ALL-Navy  level. 
DDESPAPP  reapportions  this  base  and  distributes  inventory 
over  Sponsors.  The  output  data  set  is  stored  in  the  standard 
MINI-NAMPS  base  format. 


NAMPS  • 
;sk=pcsoo5 


//IIC  ESPAP  JOB  (WEU2, 336, C,  30, 30) , • POM  7tt 
//  exec  plixcall, name=  ' keu2llc.  na:ips78' ,d: 

//  P3OGPAM=ES?AP?,COPE=160K 

//GO.  EREQSP  DD  D SN  = WZU 211 C.  E AGO  S,  DT 5P  = 01  D , U N IT=? 1 1 E , V 01  = S ER  = FT I E3  5, 
//  DC3  = (RECFM=F,LRECL=350, BLK.SIZE=350,  LI MCT= 1 , OPTCD= E) 

//GO.  EPEyiN  1 ED  DSN  = WE!J2LLC.BASIE69,DTSP=SH!?,UNir-=FILE, 

//  VOL=SER=FILE34,DCB=  (R ECFM=F , LR ECL= 350 , BLK S IZ E= 3 50) 

//GO. EREQINC  CD  DSN  = WE(J2  LLC.  B ASI  D69,  DIS  P=  5!i R , UN IT=  =T  LS , 

//  VCL  = S':R  = FTLE3  4,  DCB=  (PECFM  = F,IP5CL=350,BLKSTZE  = 3 50) 

//GO.  ERSQOUT  DD  DSN=WE"2LLC.  BASIC,  DISP=  (NEK,  KEEP)  ,-JNTT  = FTLE, 

//  VOL  = SER=F!rLF34,  CC3  = ( 3ECFM= F , LR ECL= 350 , B LKSIZ E= 3 50 , IT MC7= 1 , OPTC D= E) 
//  S? ACE= (TRK,  (112)) 

//GO .RATINDY  DD  DSN=WEU2I LC. NAMPS78. INEDy  (RATINCX)  , 

//  DISP=SHR,UN IT=FILF, 

//  VOL=SSR  = PDS005,DCB=  (PEC FM  = FB , LR EC L=8 0 , BLK S IZE  = 3 12 0) 

//GO. SY SIN  DD  *,DCB  = BLKSIZE=8Q 

CPRN  105  BASID  X 

/* 


Data  Sets  Required: 

1)  //GO.EREQSP,  EAOOS,  start  enlisted  requirement  base 
used  to  reapportion  inventory  to  Sponsors. 

2)  //GO.EREQIN1,  BASID69,  All-Navy  level  Projected 

Inventory  base  from  IBASELD. 

3)  //GO.RATINDX,  RAT1NDX,  index  data  set  containing 
valid  Enlisted  rating  codes,  paygrades,  and  titles. 

4)  //GO.SYSIN,  control  records 

Preparation: 

1)  Extract  DDESPAPP  from  DDJOBS78. 

2)  //GO.EREQIN1,  BASID69,  change  BASID  to  the 

Inventory  base  identification  code  output  from 
IBASELD. 

3)  //GO.EREQOUT,  BASID,  change  BASID  to  the  identifi- 
cation code  of  the  reapportioned  Inventory  base  (same 
as  in  step  2). 

4)  //GO.SYSIN 
OPRN  control  card 

columns  6-8  number  of  ratings  in  RATINDX 

columns  10-14  inventory  base  identification  code 
column  16  1 for  regional  (1)  data  set 

Generated  Output: 

1)  //GO.EREQOUT,  BASID,  PL/1  regional  (3)  data  set 

containing  Sponsor  apportioned  Enlisted  Inventory  base. 

Data  Set  Layouts: 
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1 -Ml  W3-VVV1J  1 yU  2 


PROGRAM:  IBASKLD 


DSORG  = DA  (REGIONAL  3 ) 


IAXXY 


A - SPONSOR  (P.  E.  ) CODE 
B - RATING  ABREV. 

C - NUMERIC  RATING  CODE/ 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES 


E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 


6.3  M-F AST/Inventory  Projection 

Because  of  time  constraints,  under  which  ADSTAP.FAST  is 
unable  to  respond,  the  interim  Inventory  projection  module  MFAST 
was  incorporated  into  the  MINI-NAMPS  system.  DDMRATES  uses  as 
input  the  FAST  system  log  of  a start  base  projection  and  computes 
inventory  ratios  by  rating  and  fiscal  year.  DDMFAST  then  approxi- 
mates the  output  of  ADSTAP.FAST,  within  confidence  limits,  using 
the  previously  calculated  ratios  and  an  updated  Enlisted  requirement 
base  processed  through  DDMREFORM. 


6.3.1  DDMRATES 

The  Job  and  Its  Purpose: 

DDMRATES  inputs  the  FAST  system  log  of  a start  base 
projection  and  computes  ratios  of  inventory  by  Enlisted  rating 
and  fiscal  year. 

n 


/ / J J JMPAT  JOB  •:  UEU2  , 386  , C , 98 > , » POM  78  MAMPS  * , PFG 1 OM=20 0 K , MSGL  FUEL  = < 2 , 0 > 
•'♦MESSAGE  0 2767 H , R3 ; 0 87690  , PS 

✓ PUPATES  EXEC  PL  I XCOMP , OPT  T 0MS= ’ HAG , MC < E > , MSTG , MOP  » 

//3VSIM  DO  * 

^ ' GO  EXEC  PL  I XL  KGO  , PAPM . L 000=  ’ ’ 

' /GO.  FAST  DO  B3M=ADSTAP.  FAST.  TAPES’  ,UOL=SEP=0 87674  ,UMIT=2420  , 

/ / OCB= < L PECL  = 133, BL PS I ZE= 133, PECFM=FB > , L ABEL  = 1 , 

//  0ISP=0L0 

/./  DO  DSM=ADSTAP . IJFAST . TAPE?  , UOL  =SEP=0  87690  , UN  I T=8420  , 

/ / DCB= < L PECL  = 133, BL  K S I ZE= 1 33 , RECFM=FB > , L ABEL  = 1 , 

//  DISP=0LD 

/ 'GO . OUTF I L E DD  DSN=WEU2 J J J . FPATES  , UOL  =SEP=F I L E0 6 , UM i T-FILE  , 

/ / D I SP=MEU , DCB= < L PECL  =92 , BL  KS IZE=31 28 , PECFM-FB > , 

//  SPACE= < TPK , <30 ,5) ,PLSE > 

/'/SOPT  EXEC  L ITSPT  ,C0ND=<8  ,LE> 

//{.  SOPT . SOPT  I M OD  DSM=* . GO . GO . OUTF  I L E , UM  I T=F  I L E , UOL  =SEP=F  I L EC  6 , 

/✓  0 1 SP=0L D , DCB=* . GO . GO . OUTF I L E 

" L SOPT . S0PT0UT  DD  DSM=* . SOPT  I M , IJM I T=F  I L E , UOL  =SEP=F  I L EO  6 , 

✓ / D I SP=  < 0L  D , KEEP  > . DCB=* . SOPT I M 

/'/LSOPT.  SVSIM  DD  * 

SOPT  F I EL  DS=  ••  3 , 4 , A , 1 , 2 , A , 7 , 2 , A > , F0PMAT=CH  , F I L S7=E50  0 0 


Data  Sets  Required: 

1)  //GO.FAST,  FAST.TAPE2,  FAST  system  log  of  a start 
base  projection,  (magnetic  tape  from  BUPERS) 

Preparation: 

1)  Extract  DDMRATES  from  DDJOBS78 

2)  Change  MESSAGEand  GO.FAST  statements  to  reflect 
appropriate  tape  volume  numbers. 

3)  Submit  as  class  C job  with  the  time  option  = 99  (See 
JCL) 

Generated  Output: 

1)  //GO.OUTFILE,  FRATES,  ratios  by  rating  and  fiscal 
year  used  as  input  to  MFAST. 


6.3.2  DDMFAST 


The  Job  and  Its  Purpose: 

DDMFAST  calculates  Projected  Enlisted  Inventory 
which  approximates  within  satisfactory  confidence  limits  the 
output  >f  ADSTAP.FAST. 


'JJJMF37E  Jut:  •'MEU2, 336,6)  > ’-CM  78  UBMP8 > , M’-TiL FUEL  = < 2 , U > 

* *******  ********** 

« *******  ft  EXECUTE  UFP8T  ********** 

* *******  ********** 

UFpST  EXEC  PGftaMFPST  ,PFGI0H*?50K 

•3TEPL  • E DD  DSH=NEU1:,LLC.  HRMPS78  ,UNIT-=F HE  ,UOl=SEP=PDS006  ,DI 
SVSPP I N T CD  SVSOUT-P  . DCB=< »ECFM=FBP  . (.  F ECL  «=  1 " 3 , EL  KS I ?E-  1 73 > 
SV?|  IIJT  DD  SVSOUT =h  . DCB=  < L PEC  L - 133,  EL  KS I ZE=  1 330  > 

PETE:  DD  D3N=*WEU?  J J J . FPRTES  . UOL  =8FP=F  I L E 0 6 , UN  I T=F  I L E , D I S 

I Mi  i DD  D3H=ME"UL'JJJ . MBPS  I D , UOL  =SEP=F  I L E(  6 , UNI  T=F  I L E . D I S 

3 VS I N DD  * 


Data  Sets  Required: 

1)  //RATES,  FRATES,  inventory  ratios  by  rating  and  fiscal 
year  as  output  from  DDMRATES. 

2)  //INV,  MBAS1D,  updated  Enlisted  requirement  base. 


3P-SHP 


P=SHP 

F-SHP 
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Preparation: 

1)  Extract  DDMFAST  from  DDJOBS78. 

2)  //INV,  MBASID,  change  BASID  to  the  appropriate 
updated  Enlisted  base  identification  code. 

Generated  Output: 

1)  //SYSOUT,  SYSOUT=A,  projected  inventory  base. 


6.3.3  DDMREFORM 

The  Job  and  Its  Purpose: 

DDMREFORM  reformats  any  updated  Enlisted  require- 
ment base  and  creates  a data  set  suitable  for  input  to 
DDMFAST. 


//JJ JMREFS  JOB  (WEU2,386,3,5)  , 1 POM  78  NAMPS' 

//  EXEC  ?LIXCALL,NAKE='WEn2LLC. N AKPS78 ’ ,DISK=PBS005, 

//  PROGPAM=MRFFORH,CORE=60K 

//GO. EBASS  DD  DSN=W EU 2 J J J . B A S ID , DISP=0 LD , UNIT=FILE , VOL= S ER= FT LE35 , 

//  BC3= (RECF«  = F,I RECL  = 350,BLKSIZE  = 350, LI MCT  = 1 , DPTCD=E) 

//GO.ME3ASE  DD  DSN= W ED 2 J J J . M B AS ID, DISP= (NEW, KEEP) ,UNIT=FILE, 

//  VOL  = SER  = FILE35,DCB=(RECFM=FB,LRECL=80,BLKSIZE  = 3120)  , 

//  SPACE= (TFK, (10,2)  ) 

//GO.  RDEX  DD  DSN=  W EfJ2L  LC  . NAM  PS78  . INDEX  ( R ATI  N DY)  , D!SP=SHR,nNIT=FILE, 
//  VOL  = SER  = FILF06,DCB  = (RFCFM=F3, LRECL  = 80, BLKSI7E=31 20) 
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Data  Sets  Required: 

1)  //GO.EBASE,  BASID,  updated  Enlisted  Requirement 
base. 

2)  //GO.RDEX,  RATINDX,  index  containing  valid  Enlisted 
rating  codes,  paygrades  and  title. 

Preparation: 

1)  Extract  DDMREFORM  from  DDJOBS78. 

2)  //GO.EBASE,  BASID,  change  BASID  to  the  appropriate 
Enlisted  base  identification  code. 

3)  //GO.MEBASE,  MBAS1D,  same  as  step  2. 

Generated  Output: 

1)  //GO.MEBASE,  MBASID,  reformatted  Enlisted  Require- 

ment base  used  as  input  to  MFAST. 
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7.  Enlisted  NEC  Subsystem 

7.1  General 

The  Enlisted  NEC  Subsystem  is  comprised  of  a single 
subsection  which  processes  NEC  data  exclusively  for  interface  with, 
and  support  of,  the  C-School  Planning  System,  SISTERN. 

7.2  LOAD/UPDATE/PUNCH 

Two  programs  perform  the  tasks  specified  in  this  subsection. 
DDNEPROGL  is  a load  program  which  uses  NEC  data  extracted  from 
the  MAP  MIS  billet  file  to  create  a master  data  set  conformable  for 
input  to  the  SISTERN  System.  DDNEPROG  performs  the  remaining 
two  tasks  dependent  on  a parameter  specified  at  run  time.  The  final 
DELTAXX,  extracted  from  the  IDMS  data  base,  is  used  to  update  the 
master  NEC  data  set.  Billet  counts  for  each  updated  NEC  are 
extracted  and  punched  cards  are  provided  as  input  for  SISTERN  and 
C-School  Planning. 


7.2.1  DDNEPROGL 

The  Job  and  Its  Purpose: 

DDNEPROGL  inputs  enlisted  requirements  from  the 
MAPMIS  System  and  extracts  information  required  to  create 
two  NEC  related  data  sets.  NECMAST  is  a PL/1  regional  (1) 
dataset  containing  sea  and  shore  billets  by  NEC  and  rating. 
NECINDX  is  a sequential  dataset  which  provides  an  index  of 
all  the  NEC,  rating,  and  submarine  code  combinations 
extracted  from  the  requirement  data. 
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//GSXNEPL  JOE  (KEU2, 386,C, 250, 30)  , • POM  7e  K AMPS  ' 

//GO  Ev  EC  PLIXCALL,SAMS='ME!J2LLC.NAMPS78,,DISK  = P:S005, 

//  ?ROGPAM=NE?ROG,CORF=200K 

//GO.P2  DD  DUMMY 
//GO. PI  DD  DUMMY 

//GO. 52  DD  SY5007  = A,DCP=  (RFCFM  = F,LFECL=8D,  BLKSTZ>P0) 

//GO.  SI  CD  SYSOUT=A, DCfi= (RFCFM=F, LRFCL=80, BLKSTZE=80) 

//GO. SYSIN  DD  * 

DATE  XYYY 
LOAD 

//GO. FI  DD  DSN=WEU2GSX. RFQKNTS. UDYENA L, UNI T=FILE, DISP= (OLD, KEEP) , 

//  VCL=SER=FILE28,DCB=  ( P EC?M  = FE  , LRFC L=  1 26  , B LFSI ZF=  3 1 50) 

//GC.F2  DD  DSN=WE02GSX.KECMAST, V0L=SER=?I L E 3 2 , U N TT= FI LE , 

//  DC 3=  (RPCFM  = F,LRECI=  127)  , DTS?=  (N°W,  KEEP)  , SPfCF=  (TRK,  (50,8)  , RISE) 
//GO. F 3 DD  DUMMY 

//GO.FU  ED  DSN=WEU2GSY.NECINDX,VOL=SER=pTLE32,UN’T=F:LE, 

//  DC3=  (PECFM  = FB,DRECL=P,BLKSTZE=352  0)  ,SPACE=  (TRK,  (2,1)  ,PLSE)  , 

//  DTSP=  (NEW, KEEP) 

//GO. F5  DJ  DUMMY 


Data  Sets  Required: 

1)  //GO.F1,  REQMNTS.UDYENAL,  enlisted  requirement 

data  base  from  the  MAPMIS  System. 

Preparation: 

1)  Extract  DDNEPROGL  from  DDJOBS78 

2)  //GO.SYSIN 

a)  DATE  XXYY,  change  XX  to  the  year  and  YY  to 
the  month  corresponding  to  the  effective 
starting  date. 

3)  Submit  DDNEPROGL  as  a Class  C job  with  the  time 
option  = 250. 


Generated  Output: 

1)  //GO.F2,  NECMAST,  NEC  master  file  detailing  sea  and 
shore  billets  by  NEC  and  rating. 

2)  //GO.F4,  NECINDX,  index  data  set  with  all  NEC, 
rating,  and  submarine  code  combinations  located  in  the 
requirement  base. 
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Data  Set  Layouts: 


I 

B 

1 

1 

il 

1 

' E 

F 

— ■ tmmmmm  ■ , i ■ 

C 

— 

H 

' 1 • ■ 1 1 ill,.. 

10  JU  60  70 

— i 1 1 1 1 

»o  oo  ioo  no  no 

PROGRAM : NEPROG 


LRECL  = 127 


INPUT  FILE:  FI 


DSORG  = DA  (REGIONAL  1 ) 


A - UPDATE  CODE 
B - NEC 
C - RATING 
D - SUB  CODE 
E - DATE 

F - SEA  BILLETS  (Array  of  5 years) 

G - SHORE  BILLETS  (Array  of  5 years) 

H - CURRENT  PY  REQUIREMENTS  (Array  of  9 paygrades) 
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7.2.2  DDNEPROG 


The  Job  and  Its  Purpose: 

DDNEPROG  updates  the  NEC  master  file  (NECMAST) 
using  an  extracted  delta  from  the  ID  VIS  data  base  detailing 
billets  by  activity,  NEC,  and  rating.  The  user  may  specify 
changed  NEC  requirements  or  all  NEC  requirements  be  output 
on  punched  cards  for  subsequent  C-School  planning. 


//GSXNEP  JOB  (VEU2, 386, C, 250, 30) , 'POM  73  NAKFS' 

.'/S0PT2  EXEC  L'TSRT 

//SORTIN'  DD  DSN  = W EU2GSX . N ECDELXX,  UNTT^ILE,  DISPOSER, 

//  V 0L  = S SB=  FILE2  P , DCB= (PECFM=FB,LRECL=53, BLKSXZE= 3498} 

//SOPTOUT  PD  DSN  = W3n2GSy.  SOFT.  N ECDELXX,  UN  I T=  FILE,  DIS?  = (SEW,  KEEP)  , 
//  VOL=SFR=FILE28,DCP=  ( P FC  FM=  FB  , LREC t=  53 , 31  KSIZ E=  34 98 ) , 

//  S?ACE=  (TRK,  (90,10)  ,RLSE) 

//SYSIN  DD  * 

SOPT  FI  ELDS  = (19,4, A, 11, 4, A)  , FORM AT=CH, S T7 E= E 2 0 0 00 

/* 

//GO  EXEC  PL!XCALL,NAME='  WEU2LLC.  NAMPS78 ' ,DTSK=PES005, 

//  PROOF  AM=NEPRQG ,COPE=200K 

//GO. ?2  DD  DSN=WFU2GSX. CHANGED. NECS2 , UNIT= FTLF , DTSP= (NEW ,KEFP)  , 

//  VOL=SER=FILE32,DCB= ( P EC FM  = FB , LREC L= 8 0 , BLKSI7F= 31 20) , 

//  SPACE=  (TRK,  (50, 10)  ,RLSE) 

//GO . ? 1 DD  D SN=WEU2SSX. CHANG ED. NECS1 , UN IT= FILE, BTSP= (NEW, KEEP)  , 

//  VOL=SER  = ',ILE32,DCB=  ( R EC  F M = FB , LP  EC  L=  3 0 , 3L  KSI Z L=  3 1 20)  , 

//  SPACE=  (TRK,  (50, 10)  ,RLSE) 

//GO. 52  DD  SYSOUT=A, DCB= (RECFM=F, LRECL=80, BLKSIZE=80) 

//GO.  Si  DD  SYSO'JT  = A,  PCB=  (RECFM  = F,  IPECL=80,  BLKSIZE-80) 

//GO. SYSIN  DD  * 

DATE  XXYY 
UPDT 

FNCH  All  CHG 
//GO- FI  DD  DUMMY 

//GO.F6  DD  DSN=WFU2GSX.  NECMAST,  VO L =SER=F IL E3 2 , U N IT=FT I F , 

//  DC  B= (RECFM=F,LRECL=127) , DTSP= (OLD, KEEP) 

//GO. F 3 DD  DUMMY 

//GO. F 4 DD  DSN=WEU2GSX. NECINDX, VOL=SER= F IL E3 2 , U NIT= FILE , DIS P= SH F 
//  DCB=  (PECFM=FB, LR 2C L = 8, BLKS IZ E= 35 2 0) 

//GO.F5  DD  DSN=WFU2GSX. SORT. N ECDFLXX , UN IT=FI L E , DISP= (OLD, KEEP) , 

//  VOL  = SEP=FILE32, DCE= ( REC FM= FB , LREC L= 5 3, ELKSIZE=  34  98) 
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Data  Sets  Required: 

1)  //SORTIN.NECDELXX,  billets  by  activity,  NEC,  and 
rating  extracted  from  the  ID  MS  data  base. 

2)  //GO.F6,  NECMAST,  NEC  master  file  containing  sea 
and  shore  billets  by  NEC  and  rating. 

3)  //GO.F4,  NECINDX,  index  data  set  with  all  NEC, 
rating,  and  submarine  activity  code  combinations  con- 
tained in  the  requirement  base. 

Preparation: 

1)  Extract  DDNEPROG  from  DDJOBS78. 

2)  //SORTIN,  NECDELXX,  change  XX  to  the  delta 
number. 

3)  //SORTOUT,  SORT.NECDELXX,  change  XX  to  the 

delta  number. 

4)  //GO.F5,  SORT.NECDELXX,  change  XX  to  the  delta 

number. 

5)  //GO.SYSIN 

a)  DATE  XXYY,  change  XXYY  to  the  year  and 
month  of  the  effective  starting  date. 

b)  UPDT  , must  always  be  coded/ 

c)  PNCH  NEC  CHG  , must  always  be  coded 

(ALL)  (ALL) 

NEC/ALL  - if  NEC,  then  punch  those  re- 
quirements specified  in  GO.F3 
data  set. 

-if  ALL,  then  punch  all  requirements 


1 
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CHG/ALL  - if  CHG,  then  punch  updated  re- 
quirements only 

- if  ALL,  then  punch  all  requirements 
in  NEC  MAST 

6)  Submit  DDNEPROG  as  a Class  C job  with  the  time 
option  = 250. 

Generated  Output: 

1)  //GO. PI,  CHANGED. NECSl,  punch  file  for  card  type  6. 
(see  Data  Set  Layouts) 

2)  //GO.P2,  CHANGED.NECS2,  punch  file  for  card  type  5. 
(see  Data  Set  Layouts) 

Data  Set  Layouts: 
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PROGRAM:  NEPROG 


LRECL  = 80 


OUTPUT  FILE:  PI 


DSORG  = PS 


A - UPDATE  CODE 
B - NEC 
C - RATING 
D - SUB  CODE 
E - DATE 

F - SEA  BILLETS  (Array  of  5 years) 

G - SHORE  BILLETS  (Array  of  5 years) 
H - CARD  TYPE  ('05') 


WZL. 


PROGRAM:  NEPROG  LRECL  = 53 

INPUT  FILE:  F5  DSORG  = PS 


A - ACTIVITY 
B - RATING 
C - PA YGRADE 
D - NEC 

E - BILLETS  {Array  of  6 years,  each  year  contains  5 characters) 
F - SEA  SHORE  CODE 
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PROGRAM:  NEPROG 


LRECL  = 127 


OPT  PUT  FILE  (DDNEPROGL):  F2 

UPDATE  FILE  (DDNEPROG):  F6 


DSORG  = REGIONAL  (1 ) 


A - UPDATE  CODE 
B - NEC 
C - RATING 
D - SUB  CODE 
E - DATE 

F - SEA  BILLETS  (Array  of  5 years) 

G - SHORE  BILLETS  (Array  of  5 years) 

H - CURRENT  FY  REQUIREMENTS  (Array  of  9 paygrades) 
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8.0  OFFICER  REQUIREMENT  SUBSYSTEM 


DYNAMICS.  INC. 

15825  SHADY  GROVE  ROAD 
ROCKVILLE.  MARYLAND  20850 


Officer  Requirement  Subsystem 

8.1  GENERAL: 

The  Officer  Requirement  Subsystem  is  designed  to  perform 
two  specific  functions  accomplishing  the  tasks  of  loading  and 
updating  the  Officer  Requirement  data  base.  DDOBASELD  uses 
output  from  the  MAPMIS  System  contained  on  magnetic  tape  to  load 
an  initial  Officer  base.  DDOUPDATE  provides  the  capability  of 
updating  any  of  the  Officer  bases  using  a selected  delta  extracted 
from  the  IDMS  data  base.  Each  Officer  Requirement  base  specifies 
the  projected  officer  manpower  required  by  the  Navy  for  six  fiscal 
years  beginning  in  POM  YR-1.  or  with  the  year  previous  to  the  POM. 

8.2  OFFICER  BASE  LOAD: 

The  Base  Load  subsection  details  the  procedure  for  loading  a 
new  officer  requirement  data  base.  Because  of  programming  and 
storage  considerations,  only  nine  officer  paygrades  are  stored  in  the 
requirement  base.  The  paygrade  conversion  is  detailed  in  table  T.7.2. 


'ode 

P 

0 
N 
M 
L 
K 
J 

1 

H 

G 

B,C,D 


Grade 

Abbr. 

Data  Base  Pa 

Warrant  Officer-1 

WOl 

01 

Chief  Warrant  Officer-2 

CW02 

01 

Chief  Warrant  Officer-3 

CW03 

02 

Chief  Warrant  Officer-4 

CW04 

02 

Ensign 

ENS 

03 

Lieutenant  (Junior  Grade) 

LTJG 

04 

Lieutenant 

LT 

05 

Lieutenant  Commander 

LCDR 

06 

Commander 

CDR 

07 

Captain 

CAPT 

08 

Admiral 

ADM.VADM, 

09 

RDMV 


TABLE  T.8.2 


8.2.1  DDOBASELD 

The  Job  and  its  Purpose: 

DDOBASELD  reformats  an  officer  requirements  base  and 
creates  a regional  (3)  file  accessible  by  sponsor,  designator,  and 
requirements  by  fiscal  year  and  paygrade.  Program  elements  are 
excluded  in  the  reformatting  process  and  a unique  base  identification 
is  inserted.  An  optional  report  may  be  specified  by  the  user  to  display 
billets  by  fiscal  year  and  paygrade  within  designators  and  program 
element  sponsors.  All  sponsor  and  all  navy  totals  by  fiscal  year 
and  paygrade  are  also  displayed.  Creation  of  the  regional  (3)  file 
may  be  suppressed  so  that  only  the  report  is  generated. 


//GZCOBLD  JOB  (WEU2,  336,  B,  30,  30)  ,»  POM  78  NAMPS' 

/♦MESSAGE  XX'/XXX,  RS 
//GOP  TER  EX  PC  LTTSRT 

//SORT’N  DD  DSN=R£OMNTS.UODYJAN,DISP=OLD/ONTT=2420, 

//  VOL=  ( PR’’  V AmE,  RETAIN,  SER=XXXXXX)  , LA  3 EL  = ( 1 , S L ) 

//SORTOU?  DD  DSN=WEU2GZC.  OFF  . REQIN  , D7SP=  (NEW  , KEEP)  , 

//  VOL=SER=FILE34,UNIT=FILE,SPACE= (TSK,  (20,2)  , RLS E)  , 

//  DC3  = (PECFM=FB,LRECL=49, BLKSIZS3 3038) 

//SYS  I N DD  * 

SORT  FT  EL  DS  = (12, 2, A, 7, 4, A)  , FORMA T-CH,5T7E=E50QC 

/* 

//RUNIT  EXEC  PLiyCALL,NAHF=' WEU2LLC. NAMPS78' , DISK=PDS005, 

//  PR0GRAM=03ASELD, CORE= 300K 

//GO. IP  DD  DSN=WEU23ZC.OFF.  REQIN,DISP=OLD,TTNIT  = FILE, 

//  VQL  = SER  = FTLE34, DC B=  (R ECFM  = FB , LR ECL=49 , 3 LKSIZF =3 03 8) 

//GO. OUT 3A S E TD  DS N = W EU2G ZC . O AX XX , D IS P= ( N EW , K E EP)  , 

//  UNTT=FIIE,BCB= (RECPM  = F, LRECI  = 350 , BLKS IZE= 3 50)  , 

//  VOL  =SER  = FI LE36,  SPACE3  (TRK,  12  0) 

//GO.INDES  DD  DSN  = WETI2LLC.NAM?S78.  INDEV  (DES I NDX)  . I N'T  T , DI SP  =S  HP  , 
//  UNTT=FILF,  VOL=SER=PDS005,  DCB=  (RL'CFM  = FB,  LRECL-“90,BLKSIZE  = 3 120) 
//GO.INSP  CD  DSN=WEU2LLC. NAMPS 78. INDEX (PESINDX) ,DISP=SHF, 

//  UNIT  = FILE, VOL=SER  = PDSD0  5,DCB=  (R ECFM  = FB , LFFCL =30 , BL KSIZE-3 120) 

//GO.SYSOUT  DD  SYSOUT=A 

//GO. SYSPFIN”  DD  SYSOUT=A 

//GO . SYS I N DD  *,DCB=BLKSIZE=30 

DATE78  06 

TIT  1 REQUIREMENT  REPORT  - BASE  OA000 

OPRN01  17  150  OAXXX 

// 
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Data  Sets  Required: 

1)  //SORTIN,  REQMNTS.ODYJAN,  the  officer 
requirement  data  base  received  from  BUPERS  on 
magnetic  tape. 

2)  //GO.IP,  OFF.REQIN,  the  sorted  officer  base  to  be 
reformatted  and  loaded. 

3)  //  GO.INDES,  DESINDX,  the  index  of  valid  officer 
designator  codes,  paygrades,  and  titles. 

4)  //GO.INSP,  PESINDX,  the  index  of  valid  program 
element  sponsors  with  short  and  long  titles. 

Preparation: 

1)  Extract  DDOBASELD  from  DDJOBS78. 

2)  //GO.OUTBASE,  change  OAXXX  to  the  base 

identification  to  be  loaded. 

3)  //GO.SORTIN,  change  ZZZZZZ  to  the  tape  volume 
number. 

4)  //GO.SYSIN 
OPRNYZ  17  150  OAXXX 

a)  change  OAXXX  to  the  base  identification. 

b)  Y = '1',  no  sponsor  - designator  report  will  be 
generated. 

Y = 'O',  will  generate  a report  detailing  officer 
requirement  by  fiscal  year  and  paygrade  for  each 
designator  within  a program  element  sponsor, 
total  officer  requirements  for  each  program 
element  sponsor,  and  all  Navy  officer 
requirements. 


c)  Z = '1',  the  officer  base  will  not  be  loaded  on 
disk. 

Z = 'O',  base  OAXXX  will  be  loaded  on  disk. 


Generated  Output: 

1)  GO.OUTBASE,  OAXXX,  the  officer  requirement 
formatted  in  the  standard  M1NI-NAMPS  Base  format. 

2)  //GO.SYSOUT,  SYSOUT=A,  the  requirements  report 
with  billets  by  fiscal  year  and  paygrade  for  designators 
within  program  element  sponsors,  totals  for  program 
element  sponsors,  and  ALL  NAVY  totals.  See  Sample 
Output. 


Data  Set  Layouts: 


PROGRAM:  DDOBASELD 

FILE:  GD.  IP 


LRECL  = 49 
DSORG  = PS 


A - PROGRAM  ELEMENT 
B - DESIGNATOR  CODE 
C - SPONSOR  CODE 
D - B/A 

E - BILLETS  BY  FISCAL  YEAR 
F - BLANK 


LI 

B 

c: 

]•; 


F^E7 


^1 


if 


310 
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3 2 0 


Oi,  'Ql-Q\0 
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i 
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33u 
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PROGRAM:  IBASELD 


LRECL  = 350 


FILE:  OAXXY 


DSORG  = DA  (REGIONAL  3 ) 


A - SPONSOR  (P.E.  ) CODE 
B - RATING  ABREV. /DESIGNATOR 
C - NUMERIC  RATING  CODE/BLANK 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES/RANKS 


E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 
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SAMPLE  OUTPUT: 


' REQUIREBENT 

REPORT  - 

BASE 

oiooo 

PAGE 

program 

SPONSOR  FISCAL 

GRADE 

OP-OI  YEAR 

1 

2 

3 

9 

5 

6 

7 

8 

9 

TOTAL 

DESIGNATOR  - 1050 

1977 

0 

0 

0 

0 

0 

0 

0 

1528 

0 

1528 

1776 

0 

0 

0 

0 

0 

0 

0 

1483 

0 

1483 

1979 

0 

0 

0 

0 

0 

0 

0 

1505 

0 

1505 

1980 

0 

0 

0 

0 

0 

0 

0 

1452 

0 

1452 

1981 

0 

0 

0 

0 

0 

0 

0 

1443 

0 

1443 

1582 

0 

0 

0 

0 

0 

0 

0 

1443 

0 

1443 

DESIGNATOR  - 1110 

1977 

0 

0 

0 

♦ 0 

262 

0 

0 

0 

0 

262 

1978 

0 

0 

0 

0 

263 

0 

0 

0 

0 

263 

1979 

0 

0 

0 

0 

263 

0 

0 

0 

0 

263 

1580 

0 

0 

0 

0 

263 

0 

0 

0 

0 

263 

1561 

0 

0 

0 

0 

263 

0 

0 

0 

0 

263 

1982 

0 

0 

0 

0 

263 

0 

0 

0 

0 

263 

DESIGNATOR  - 1120 

1977 

0 

0 

0 

0 

0 

0 

0 

618 

0 

618 

- 1578 

0 

0 

0 

0 

0 

0 

0 

480 

0 

480 

1979 

0 

0 

0 

0 

0 

0 

0 

543 

0 

543 

1960 

0 

0 

0 

0 

0 

0 

0 

446 

0 

446 

1981 

0 

0 

0 

0 

0 

0 

0 

446 

0 

446 

1962 

0 

0 

0 

0 

0 

0 

0 

446 

0 

446 

DESIGNATOR  - 1130 

• 

1977 

0 

0 

0 

0 

0 

189 

0 

0 

0 

189 

1978 

0 

0 

0 

0 

0 

187 

0 

0 

0 

187 

1979 

0 

0 

0 

0 

0 

197 

0 

0 

0 

187 

1980 

0 

. 0 

0 

0 

0 

182 

0 

0 

0 

102 

1981 

0 

0 

0 

0 

0 

182 

0 

0 

0 

182 

1982 

0 

0 

0 

0 

0 

182 

0 

0 

0 

182 

DESIGNATOR  - 1160 

1977 

0 

0 

13 

0 

0 

0 

0 

0 

0 

13 

1976 

0 

0 

13 

0 

0 

0 

0 

0 

0 

13 

1579 

0 

0 

13 

0 

0 

0 

0 

0 , 

0 

13 

1980 

0 

0 

13 

0 

.0 

0 

0 

0 

0 

13 

1981 

0 

0 

13 

0 

0 

0 

0 

0 

0 

13 

1982 

0 

0 

13 

0 

0 

0 

0 

0 

0 

13 

DESIGNATOR  - 1170 

1977 

0 

0 

30 

0 

0 

0 

0 

0 

0 

30 

1978 

0 

0 

30 

0 

. 0 

0 

0 

0 

0 

30 

1979 

0 

0 

30 

0 

< 0 

0 

0 

0 

0 

30 

1980 

0 

0 

30 

0 

0 

0 

0 

0 

0 

30 

1981 

0 

0 

30 

0 

0 

0 

0 

0 

0 

30 

1982 

0 

0 

30 

0 

0 

0 

0 

0 

0 

30 

DESIGNATOR  - 1300 

• 

1977 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

1978 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

1979 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

1580 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

1981 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

1992 

0 

0 

0 

0 

0 

0 

30 

0 

0 

30 

DESIGNATOR  - 1301 

1977 

0 

0 

0 

0 

0 

0 

126 

0 

0 

126 

1978 

0 

0 

0 

0 

0 

0 

126 

0 

0 

126 

1979 

0 

0 

0 

0 

0 

0 

126 

0 

0 

126 

1980 

0 

0 

0 

0 

0 

0 

126 

0 

0 

1 126 

1981 

0 

0 

0 

0 

0 

. 0 

126 

0 

0 

126 

1982 

0 

0 

0 

0 

0 

• 

0 

126 

0 

0 

126 

L. 
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8.3  OFFICER  BASE  UPDATE 


Similar  to  the  Enlisted  Subsystem,  POM-78  MINI-NAMPS 
maintains  a permanent  officer  requirement  data  base  with  the  capa- 
bility of  creating  an  updated  version  on  an  as-required  basis.  The  job 
DDOUPDATE  will  update  any  officer  requirement  data  base  using  a 
selected  Delta  XX  and  create  a new  one;  it  is  the  responsibility  of  the 
staff  to  identify  this  new  data  set  as  a new  master  base  or  an 
alternate  base. 


8.3.1  DDOUPDATE 

The  Job  and  its  Purpose: 

DDOUPDATE  creates  a regional  (3)  officer  requirement 
base  using  a selected  delta  as  input.  Data  is  reformatted  to 
exclude  program  element  and  include  a unique  base 
identification  code.  Requirements  are  stored  by  fiscal  year 
and  paygrade  and  are  accessible  by  designator  code  and 
program  element  sponsor.  A report  is  generated  to  display 
total  requirement  changes  by  fiscal  year  and  paygrade. 


//GZCUPT?  JOB  (WEU2,  386, B)  , 'POM  73  NAMPS  * 

//PIT  EXEC  PLTXCALL,  NAME='  WEU2LLC.  NAMP378*  ,DISK=PDS005 , 

//  PRO3FAM=UPDATE,CORE=200K 

//JO.DESTNDX  DD  DSN=WEU21LC. N AMPS7S. INDEX (DESINDX)  rDTSP= (OLD, KEEP)  , 
//  V0l=S  EP.  = PDS00  5,  UNTT=FTLE,  DC3=  (RECFM=FB,  LRECL=80, 

//  3LKSTZE=3120) 

//GO.FATINDX  DD  DUMMY 

//GO. REQIN  DD  DSN  = WEU2LLC. S DELTA  XX , DIS ? = (SHF, KEEP)  , 

//  VOL =SFR= FILE  17, UNIT=FILE, DCB= ( RECFM  = F 3 , LR ECL=3 3 9 , B L KSI ZE  = 1 28 82 ) 

//GO. DATEUP  DD  DSN  = WEU2LLC.0AXXY,  DISP= (OLD, KEEP)  , 

//  V0L=3ER=FTLE34,UNIT=FILE,DCB= ( RECF , L RFCL= 350 , I T MCT= 1 , 0PTCD= E) 
//GO. NEWBASE  DD  DSN  = WEU2LLC.OAZZY,DISP=  (NEW, KEEP)  ,UN"rT  = FTLE, 

//  VOI =SER  = FILE39,DCB=  (R PCFM  = F , LRECL  = 3 50 , LI MCT= 1 ,OPTCD  = E)  , 

//  SPACE=  ( TRK , 112) 

//GO. S vSOUT  DD  S YSOUT  = A 
//GO.  SYSPPTMT  DD  SYSOfJT=A 
//GO. S YS IN  DD  * 

OPPN1  1976  106  OAZZY  OAXXY 

TTTL  OrFICEF  REQUIREMENTS  UPDATE  REPORT  - 


Data  Sets  Required: 

1)  //GO.REQIN,  SDELTAXX,  delta  XX  requirement 

changes  as  generated  from  Support  Subsystem. 

2)  //GO.DATEUP,  OAYYY,  base  identification  code  of 
base  to  be  updated. 

3)  //GO.NEWBASE,  OAZZZ,  base  identification  code  of 
new  base. 

4)  //GO.DESINDX,  DESINDX,  index  of  valid  officer 

designator  codes  and  titles. 

Preparation: 

1)  Extract  TDOUPDATE  from  DDJOBS78 

2)  //GO.REQIN,  SDELTAXX,  change  XX  to  the  delta 
number. 

3)  //GO.DATEUP,  OAYYY,  change  YYY  to  the  base 

identification  code  of  the  base  being  ipdated. 

4)  //GO.NEWBASE,  OAZZZ,  change  XXX  to  the  base 

identification  code  of  the  base  being  created. 

5)  //GO.SYSIN 

OPRN1  1976  106  OAZZZ  OAYYY 

a)  Change  OAZZZ  to  base  identification  code  of 
base  being  created  (new  base) 

b)  Change  OAYYY  to  base  identification  code  of 
base  being  updated  (current  base) 
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9.0  BASE  REPORTS/DISPLAY  SUBSYSTEM 


DYNAMICS.  INC. 

15825  SHADY  GROVE  ROAD 
ROCKVILLE.  MARYLAND  20850 


Base  Reports/Display  Subsystem 


9.1  GENERAL 

The  three  subsections  of  the  Base  Reports/Display  subsystem 
allow  the  users  of  MINI-NAMPS  to  match  requirements  with 
requirements  or  inventory,  print  detailed  requirement  reports,  and 
compare  bases.  This  is  accomplished  by: 

1)  the  interactive  plot  query  which  allows  users  to  display  single 
plots  and  query  for  ratings/designators  which  differ  by  more 
than  a specified  criterion  (see  Section  10.2.2); 

2)  the  plot  reports,  in  which  requirement  and  inventory  are 
plotted  by  fiscal  year,  (see  Section  10.3.1) 

3)  the  Enlisted  and  Officer  Requirements  Plans 

4)  the  base  comparison  report. 

9.2  Plot  Query 

The  two  programs  which  comprise  the  Plot  Query  subsection 
provide  the  users  of  MINI-NAMPS  78  with  the  capabilities  of  storing, 
retrieving,  and  displaying  billets/men  by  fiscal  year  and  paygrade  for 
any  enlisted  or  officer  requirement  base  or  enlisted  inventory  base. 
Each  base  is  loaded  with  billets/men  aggregated  at  an  all  NAVY  level. 
In  addition,  a base  identification  code  and  narrative  is  stored  and 
provides  a unique  description  of  the  contents  of  each  base. 

9.2.1  DDPLOTDLD 

The  Job  and  Its  Purpose: 

DDPLOTDLD  a)  reformats  a regional  (3) 
enlisted/officer  requirement  base  or  enlisted  inventory  base 
and  appends  a new  base  to  PLOTD,  the  regional  (1)  file 
containing  all  current  bases;  b)  inserts  the  base  identification 
code  and  description  in  the  regional  (1)  file  containing  base 
negatives  (STATUS);  c)  deletes  an  existing  base  and 
description  from  PLOTD  and  STATUS.  Information  in  PLOTD 
may  be  accessed  sequentially  or  directly,  using  ratings  or 
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designators  as  keys.  Within  each  rating/designator, 
billets/men  are  stored  by  fiscal  year  and  paygrade  for  each 
base  at  an  all  sponsor  level.  All  Navy  totals  by  fiscal  year  and 
paygrade  are  stored  in  the  last  keyed  record  in  file  PLOTD. 


//GZCPLTLD  JOB  (WEU2  , 396,  S,  30,  30)  , ' POM  73  N A M P S ' 

//PUN IT  E'-EC  PLIXCALL, NAME=* WEU2LLC. NAMPS7B'  , DISK=PDS005, 

//  PROGRAK  = PLCTDLD,CORF=2r>riK 

//GO.  BSTAT'JS  DD  DS  N =W  EU  2L  LC.  ST  ATUS , DTS  P=  (CLP,  KEEP)  ,UNIT=FTLS, 

//  VOL=5EP=FILE3U,DCB=  (R  ECFM  =F  , LRECl  =800 , B!  KSI  7 E = 300 ) , 

//  SPACE*  (TRK,  (10,2)  ,?L3E) 

//GO. PLOTD  DD  DSN=WEU2L LC. PLOTD ,DISP= (OLD, KEEP) , UNI T= FILE, 

//  VOL  = SER=FILS3U,DC3=  ( R ECFM=  F , L BECL=  1 278  5 , 3 LKSTZC,=  1 27  8 S)  , 

//  SPACE=  (TPK, 1 1 2) 

//GO. BAS  fc’1  DD  DUMMY 

//GO. BAS  E3  DD  DS N= WEU2LLC . BX Y YZ , D IS P= S HR , UN TT=F^LE , 

//  VOL  = 5FR  = FTLE34,DCB= (F EC FM= F , l RECL  = 35C , BL ¥ S 1 7 E= 3 SO , L I MC T= 1 ,0PTCD=F) 
//GO .RATTNDX  DD  DSN=WEU2LLC. HASPS78 . INDEX (BATTNDX)  ,DTSP= (SHR, KFEn)  , 
//  UNIT  = FILE, VOL=SER  = PDS00  5, DCB=  (R EC?M=TB , LP FC L=80 , 3 LK S I Z E = 3 12 0) 
//GO.DESINDX  DD  DSN=WEU2LLC.  NAMPS78.  INDEX  (DESTNDX)  ,D"SP  = (SHR,  FEE’’)  , 
//  UNIT  =FILE,VOL=SER=PDS005,DCB=  (R ECFM  = FB , LF EC 1=90 , 3LKS TZ E=3 12  0) 

//GO. SYSTN  DD  * 

TIT  1 E PROJECTED  ENLISTED  AUTHORIZATIONS  (NAMPS  REPORT  21.13) 

TT T2 A ORIGINAL  SOURCE  30  JAN  BILLET  FILE  (RENLQUAL) 

TIT301  BASE  EA002  (REPORT  21.03)  WITH  DELTA  01  3PP  APPLIED 
TIT42  CONSTRAINED  PAYGRADES  (62.2)  BASED  ON  EA010  END  STRENGTH 
DATF76 

CNTR105  BXYYZ  V W 


Data  Sets  Required: 

1)  //GO.STATUS,  STATUS,  PL/1  regional  (1)  file  containing 

base  identification  codes  and  descriptions. 

2)  //GO. PLOTD,  PLOTD,  PL/1  regional  (1)  file  containing 

billets/men  by  fiscal  year  and  paygrade  for  each 
base. 

3)  //GO.BASE3,  BXYYZ,  any  enlisted/officer  requirement 

base  or  enlisted  inventory  base. 

4)  //GO.RATINDX,  RATINDX,  index  of  valid  enlisted 

rating  codes  and  titles. 

5)  //GO.DESINDX,  DESINDX,  index  of  valid  officer  designator 

codes  and  titles. 
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Preparation: 

1)  Extract  DDPLOTDLD  from  DDJOBS78 

2)  //GO.BASE3,  BXYYZ,  change  data  set  to  appropriate 

base  identification  code  (see  POM-78  NAMPS  PLOTTING 
SYSTEM  USERS  GUIDE  for  explanation  of  coding) 

3)  //GO.SYSIN 

a)  DATE  XX  must  always  be  coded 

XX  specifies  the  POM  year 

b)  CNTRAAA  BXYYZ  3 W must  always  be  coded. 

AAA  = 105  for  enlisted  base 
= 106  for  officer  base 

BXYYZ  = base  identification  code 

W = '1'  for  initial  load  of  file  PLOTD 
= '2'  for  adding  a base  to  PLOTD  and  STATUS 
= '3'  for  deleting  a base  from  PLOTD 
and  STATUS 

c)  TITNB  description  must  always  be  coded 

TITNX  description  must  always  be  coded 

TITN  YY  description  must  always  be  coded 

TITNZ  description  must  always  be  coded 

N = sequentially  numbered  title  card 
BXYYZ  = base  identification  code. 

Generated  Output: 

1)  //GO.BSTATUS,  STATUS,  updated  regional  (1)  file 

containing  base  descriptions. 

2)  //GO. PLOTD,  PLOTD,  updated  regional  (1)  file 

containing  billets/men  by  fiscal  year  and  pay 
grade  for  each  base. 
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Data  Set  Layouts: 


PROGRAM:  PLOTLD 


LRECL  = 127  85 


FILE:  GO.PLOTD 


DSORG  = DA  (REGIONAL  1) 


A - RATING  (DA  KEY) 

B - DESIGNATOR  (DA  KEY) 

C - BASE  IDENTIFICATION  CODE  #1 

D - 10  BY  6 ARRAY,  6 BYTES  PER  ITEM-ENL/OFF  REQUIREMENTS 
(10  = 0 PAYGRADE  AND  TOTAL) 

(6  = 6 FISCAL  YRS:  POM-1  thru  POM+4) 

E - 35  BASES  AS  DEFINED  BY  C AND  D 

F - POM  YR 


The  Job  and  Its  Purpose: 


PLOTC.CLIST  is  one  of  three  interactive  programs  that  comprise  the 
POM-78  NAMPS  Information  Retrieval  Subsystem.  It  allows  the  user  to 
display  plots  using  data  from  any  of  the  available  bases  of  the  POM-78 
NAMPS  system  for  the  purpose  of  comparing  the  selected  number  of  billets 
and/or  men  in  the  bases  for  specified  ratings/paygrades,  and  rating  groups. 
Additionally,  it  allows  the  user  to  query  those  ratings/paygrades  at  which 
the  absolute  difference  of  the  billets  and/or  men  meet  a specified  criterion. 
Plots  may  be  displayed  at  the  all  Navy  level  and  the  print  command  may  be 
used  to  specify  that  plots  are  to  be  listed  offline  on  the  NIH  printer  and  not 
displayed  at  the  terminal.  PLOTC.CLIST  runs  under  TSO  and  is  executed 
with  the  command:  EXEC  PLOTC.  PLOTC,  as  used  in  the  preceeding 

command,  is  a TSO  C-LIST  (See  Appendix  F ) which  includes  all  allocation 
and  call  commands  necessary  for  executing  the  program.  The  user  should 
refer  to  the  POM-78  PLOTTING  SYSTEM  - USER'S  GUIDE  for  complete 
explanations  and  examples  of  all  commands  required  to  execute  the 
program.  (APPENDIX  F) 


FFEEALL 

ALLOC  F-LE  (STATUS)  DA  (»  WETJ2LLC.  STATUS  ‘/KEY)  SHF  VOL(FILFJ4) 

ALLOC  FILE  ( R ATIN)  DA('WEU2LLC.NAMPS78.INDEX(FATINDX)  '/KEY)  SHF  VOL(PDS005) 
ALLOC  FILE(DESIN)  DA(’WETT2LLC.NAMPS78.INDEX(DESINDX)  '/KEY)  SHR  VOL(PDSOOS) 
ALLOC  FILE(PLOTP)  DA  ( • If  FU2L I C . PLOTD 1 /KE  Y)  SHF  VOI  UKE  (FTLE34) 

ALLOC  FILE  (STATOUT)  D A ( ' K EU  2GZC  .STATOUT  ' /K  EY)  VOL  (FI  LEO-7)  SP(50,10)  BL{86)  NEK 

FREE  FILE (SYSPRTNT) 

FREE  FILE (SYSOUT) 

ALLOC  FILE (SYSPRINT)  DA  (*) 

ALLCC  TLE  (SYSOUT)  DA  (*) 

ALLOC  FILE  (SYSIN)  DA  (*) 

CALL  'WEU2LLC.NAMPS78  (PLOTC)  '/KEY  V00' 

WHEN  S YS RC ( N E 511)  EXEC  PROC5 
FREE  FILE (STATUS) 

FREE  FILE  (PATIN) 

FPFE  FILE  (DESIN) 

FREE  FILE (PLOTD) 

SUBMIT  BATCH. PLOT 
FREE  FILE (STATOUT) 

UNCAT  STATOUT 
END 

FREE  FILE (STATOUT) 

SCR A TCU  STATOUT 
END 
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Data  Sets  Required: 

1)  PLOTD  aPL/1  regional  (1)  data  set  with  billets  and/or  men  by 

rating/paygrade  for  each  available  base. 

2)  RATIN,  a sequential  data  set  containing  valid  rating  codes. 

3)  DESIN,  a sequential  data  set  containing  valid  designator  codes. 

4)  STATUS,  aPL/1  regional  (1)  Data  set  containing  identifications 

and  descriptions  of  all  available  bases. 

5)  STATOUT,  a sequential  data  set  containing  all  information 

necessary  to  produce  plots  offline  at  the  NIH  printer. 

6)  PLOTC.CLIST,  a TSO  data  set  containing  allocate  and  call 

commands  as  follows: 

NOTE:  Key  must  be  replaced  by  the  designated  keyword  for  initials  WEU2. 
Preparation: 

1)  Logon  to  TSO  with  the  same  account  code  and  intials  as  used  for 
WYLBUR,  then  type  in:  EXEC  PLOTC 

2)  Refer  to  POM-78  PLOTTING  SYSTEM  USER'S  GUIDE  for  Commands. 
(Appendix  F) 

9.3  Batch  Plots 

This  batch  version  of  the  Plotting  function  is  used  when  Plots 
are  desired  to  the  Sponsor  level.  With  the  exception  of  the  Criterion 
command  function,  all  capabilities  of  PLOTC.CLIST  are  available  in 
the  batch  version. 


I 

I 

I 
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9.3.1  DDPLOTB 


The  Job  and  Its  Purpose: 

DDPLOTB  produces  plots  of  ratings  (designators)  and 
rating  (designator)/  paygrades  on  the  All  Navy  level  as  well  as 
on  the  program  element  sponsor  level.  It  is  designed  to  allow 
two  or  three  sets  of  data  to  be  plotted.  Thus,  one  can  show: 
Requirement  vs.  Inventory;  Alternate  Requirement  vs. 
Requirement;  Alternate  Requirement  vs.  Requirement  vs. 
Inventory;  etc.  The  system  is  additionally  flexible  in  that  it 
allows  first,  a graduated  level  of  detail  ranging  from  an  ALL 
NAVY  plot  to  a plot  showing  a particular  paygrade  of  a rating 
or  designator  for  an  individual  program  element  sponsor;  and 
second,  the  ordering  of  plot  reports  alphabetically  or  in  various 
groups  with  accompanying  group  totals.  Control  cards 
determine  the  type  of  plots  that  are  produced.  Each  frame 
indicates  billets  on  the  Y-axis  and  fiscal  year  (77-82)  on  the  X- 
axis. 


//LLCPLOT3  JOB  ( HEO 2, 386 , B , 30 , 30 ) , • POK  78  NAHPS' 

//  EXEC  PLIXCALL, NAME=' W EU 2LLC . N AM PS78 ' ,DISK=PES005, 

//  PROGRAM=FLOT3,COPE=200K 

//*  TNB1  THRU  I N33  ARE  USED  ONLY  WHEN  SPONSOR  PLOTS  ARE  SPECIFIED 
//SO.  INB  1 DD  DSN  = WETJ2LLC.  BASID,  UNIT=FILE,  VOL=SE3=FILF36, 

//  D^SP-SHR,  DCB=  (PECFH  = F,LRECL=3S0,BLffSIZE=350,LIWCT=1,OPTCD=E) 

//GO. INB 2 DD  DC B= (R2CFM=F, LRECL= 350 , BLK SI ZE= 3 50 , LI MCT= 1 ,OPTCD=F)  , 

//  DSN=WEU2LLC.3ASID, UN IT=FI LE , VO L= S ER=FILE34 , DIS?=SHR 

//GO. I N B 3 DD  DCB=(RECFM  = F,LRFCL=350,3LKSIZE  = 350,ITMCT=1,OPTCD=E)  , 

//  DSN=WEU2LLC.3ASID,UNIT=FILE, VO L=S ER=FILE3  4, DTS?=S HR 

//GO. FDINDX  DD  DSN  = WEU2LLC. NAMPS78. INDEX  (RATINDX) ,UNIT=FTLE, 

//  VOL=SER=PDS005,DIS?=SHR, DC  B= ( 3 ECFM= FB , LR ECL= 80 , BLKS I ZE= 3 1 2 0) 

//GO.SPOINDX  DD  DSN  = WE'J2LLC.  NAKPS78.  INDEX  (PESIN’DX)  , !JNIT  = FI  LE  , 

//  VOL  = SER=PDS00S,  DISP  = SHR,  DCB=  (R  ECF !t=  FB  , LR ECL=  8 3 , B LKST  ZE  = 3 1 2 ^ 

//GO. GBP  IN DY  DC  DS N= W EU2 LLC . NA MPS 78 . INDEX (G RPI N DX)  ,UNIT  = FILE, 

//  VOL  = SSF=PDS005,  DI  SP=  SHR  , DCB=  (R  EC  FM=F  B , LRECL  = 8 0 , BL  KST.Z  E=  3 1 20 ) 

//GO. PLOTS  DD  S YSOUT=  A 

//GO. 3STATUS  DD  D 5N  = W EU 2L IX . ST ATU S, U N IT  = *I LE , VO L=SER  = FT LF 3 4 , 

//  DISP=SHR,DCB= (BECFM=FB, LRECL=8 00 , BL KSIZ F= 32 00) 

//GO.PLOTD  DD  DSN= WEU2I LC . PLOTD ,UN IT=FILE , VO L=SF3= FI L E 3 4 , 

//  DISP=SHR , DCB= (RECFM=F,LRECL=12785,BLKSIZE=12785) 

//GO. COVER  DD  DS N=W EU2 LLC. COVER . R24 1 1 , UNI T=FI L E , 

//  VOL=SER=FTLE06,DISP= (OLD, KEEP) ,DCB= ( R EC FM=F B , LRECL =8 0 , EL KSIZ F= 3 1 2 0 ) 
//GO. SYS  IN  DD  *, DCB=BLKSIZE=80 
DATE 7 8 

TIT1***NA.1PS  REPORT  24.11  - ALNAV  RATING/P  AYGR  ADE  *** 

OPRNX  BA  51 D 1 BASTD2  BASID3  ALLZY  IDS 

/* 
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Data  Sets  Required: 


1)  //GO.SYSIN,  control  cards. 

2)  //GO.PLOTD,  PL/1  regional  (1)  data  set  containing  requirements  by 
fiscal  year  and  paygrade  for  each  base  at  the  All  Sponsor  level. 

3)  //GO.RDINDX,  RATINDX,  index  data  set  containing  valid  enlisted 
rating  codes,  paygrades,  and  titles. 

4)  //GO.SPD1NDX,  PESINDX,  index  data  set  containing  valid  program 
element  sponsor  codes  and  title. 

5)  //GO.GRPINDX,  GRPINDX,  index  data  set  containing  DOD  and  HEW 
group  titles. 

6)  //GO.BSTATUS,  STATUS,  PL/1  regional  (1)  data  set  with 
identification  codes  and  descriptions  for  each  base  in  PLOTD. 

7)  //GO.COVER,  COVER. REPORT,  data  set  containing  cover 
information  for  a plot  report. 

8)  //GO.INB1,  BASID,  PL/1  regional  (3)  Enlisted  or  Officer  Requirement 
base  or  Enlisted  Inventory  base  with  requirements  apportioned  by 
sponsor  and  rating/designator. 

9)  //GO.INB2,  BASID,  comparison  base  (same  as  #8) 

10)  //GO.INB3,  BASID,  comparison  base  (same  as  #8) 

NOTE:  If  only  two  bases  are  to  appear  with  the  plotted  output,  then 

GO.INB3  should  be  dummied. 
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Preparation: 


1)  Extract  DDPLOTB  from  DDJOBS78 

2)  //GO. COVER,  COVER. REPORT,  change  REPORT  to  the  appropriate 
identifier  code  (see  Appendix  F)  and  modify  description  in  data  set. 

3)  //GP.INB1,  BASID,  change  BASID  to  the  identification  code  of  the 
specified  Enlisted/Officer  requirement  or  Enlisted  Inventory  base. 

4)  //GO.INB2,  BASID,  same  as  step  3. 

5)  //GO.INB3,  BASID,  if  three  bases  are  to  be  plotted,  then  follow 
instructions  for  step  3.  Otherwise,  this  data  set  should  be  dummied. 

6)  //GO.SYSIN,  specify  desired  parameters  as  follows: 

a)  DATE  control  card 
columns  5-6  POM  year 
columns  7-17  current  date 

b)  TITX  control  card 

column  4 title  card  number  (max=9) 
columns  5-72  narrative 

c)  OPRN  control  card 

column  5 number  of  bases  to  be  plotted 
(min=2,  max=3) 

columns  7-11  first  base  identification  code 
(must  be  requirements) 

column  12  lable  corresponding  to  first  base 
columns  14-18  second  base  identification  code 
columns  19  label  correspond  to  second  base 
columns  21-25  third  base  identification  code 
column  26  lable  corresponding  to  third  base 
column  21-31  ALL1  = rating  plots 
ALL2  = rating/paygrade  plots 
ALL3  = sponsor  rating  plots 
ALL4  = sponsor  rating/paygrade  plots 


column  32 


columns  34-36 

columns  37-38 
columns  40-41 


1 = alphabetic  rating  order/numeric 

designator  order 

2 = HEW  (OPOl)  rating  group/officer 

design  groups. 

3 = DOD  (PERS)  Rating  Group  (not 

valid  for  officer  base) 

number  of  ratings  in  RATINDX/ 

number  of  designators  in  DEX1NDX 

starting  sponsor  range 

end  sponsor  range 


Generated  Output: 

1)  //GO. PLOTS,  SYSOUT=A,  the  plot  report.  Depending  on  the 

parameters  specified  on  the  'ALL'  control  card,  the  data  set  may 
exceed  the  line  number  limit  specified  on  the  JOB  card  (see  JCL). 
Presently,  this  limit  is  set  to  30,000  lines.  If  the  output  is  expected 
to  exceed  this  limit  an  NIH  defined  SPOUT  tape  must  be  created  to 
receive  the  output. 
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Sample  Output: 

***  N AMPS  REPORT  24.12  - ALNAV  S AT ING/PAY G RA DE  ***  PAGE  194 

RATING:  YN  E9 


B 122 

I 120 

L 118 


L 

116 

* 

* 

E 

114 

A 

* 

r- 

112 

♦ 

* 

B 

B 

5 

110 

B 

B 

/ 

108 

* 

» 

106 

T 

L 

104 

N 

102 

100 

77 

78 

79 

80 

81 

82 

RATING: 

YV 

B 

9500 

— . 

9400 

A 

A 

T 

9300 

* 

B 

* 

B 

B 

T 

9200 

* 

* 

E 

9100 

rp 

9000 

C 

8900 

I 

I 

/ 

M 

6800 

8700 

E 

8600 

T 

N 

8500 

8400 

T 

77 

78 

79 

80 

81 

82 

NAVY  T 

DIAL  E4 

B 

9c7  00 

x 

99200 

A 

* 

y 

97700 

I 

97200 

A 

£, 

96700 

B 

B 

T 

962  00 

A 

B 

S 

95700 

* 

B 

/ 

95200 

B 

M 

94700 

* 

E 

94200 

I 

u 

93700 

93200 

I 

I 

77 

78 

79 

80 

81 

82 
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9.4  ER  P/OR  P/Compare 


9.4.1  DDBKERPREP 


The  Job  and  Its  Purpose: 

The  JOB  DDBKERPREP  generates  requirements  data  in  a format 
similar  to  that  of  the  OP-Ol's  Enlisted  Requirement  Plan  for  six  fiscal  years. 


//LLC3KEPA  JOB  (WFU2 , 386,  B)  , • POM  "’B  N AM  PS ' 

//SORT  1 EXEC  I”TSRT 

//SOR  TIN  DO  DSN=WEU2LLC.ART.OTBA5TD,DTSP  = SHF,UNTT-=FTLE, 

//  DC B=  (LPECL=80, BIKSIZE=3 12D,R3CFM=FE)  , VOI.  = 5ER  = FILE  76 

//SORTOUT  DD  DSN  = Bf-ARTSFTD,ONIT=SYSDA,DTSP=  (NEW, PASS)  r 
//  SPACE=  {TRK , (S,  1 ) ) , DCB=*. SORT  I N 

//SYSIN  DD  * 

SORT  FIELDS^  (11, 4, A, 18, 1,D) , FORM AT=CH, S TZ E=E600 
/* 

//RVNIT  EXEC  CBLACALL,  N AM  F= ' WErJ2LLC.NAMPSP6'  , 

//  ?ROGRAM=BKERPREP, DISK=PDS0C5,CORE=80K 

//GO. TTLCRDS  CD  DSN=SEU2LLC. NAM PS78. INDEX (EBP TITLE) ,”NIT  = FILE, 
//  DCB=(RECFM='7B,LRECL  = 80,BLKSIZE  = 3120)  f VOL  = SE  S = PD  SO  OR  , 

//  DTSP=  (OLD,KEFP) 

//GO.INPPAT  DD  DSN  = S5ARTSRTD, DISP=(OLD, PASS, KEEP)  , 

//  DCB=  (LRECL=80,BLKSTZE=3120,RFCFM=FB) 

//GO.OFFCAND  CD  DS N = W EO 2LLC. OFFCA ND, UN  IT =FI LE , DISP=SH R , 

//  VOL  = SER  = ?IL  E06,DCE=  (R  ECFM  = FB  , LRF.C I =80  , B LK  SIZ  E = 3 12  0) 

//GO. ERPRPT  DD  SYSOUT=A 

Data  Sets  Required: 


1)  //SORTIN,  ART.OTBASID,  the  output  of  the  program  ARTESIA. 

2)  //GO.TTLCRDS,  ERPTITLE,  index  containing  titles  from  the  Navy 
ERA. 


3)  //GO.OFFCAND,  OFFCAND,  a data  set  containing  the  rating  and 
number  of  candidates  eligible  for  officer  training  in  each  fiscal  year. 


Preparation: 


1)  Extract  DDBKERPREP  from  DDJOBS78. 


2)  //SORTIN,  change  BASID  to  the  identification  code  of  the  base 
output  from  ARTESIA. 


I 


I 

I 
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Generated  Output: 


1)  //GO.ERPRPT,  the  ENLISTED  REQUIREMENTS  PLAN  manual 
formatted  for  8i  by  11  paper. 

NOTE: 

The  load  module  BRERPREP  is  currently  set  up  for  fiscal 
years  1977  thru  1982.  When  these  years  no  longer  apply,  it  will  be 
necessary  to  update  the  COBOL  source  code  and  recreate  the  load 
module.  Follow  the  instructions  below  to  update  the  source  code. 

1)  Extract  BKERPREP.COB  from  WEU2LLC.PROGS78. 

2)  Renumber  using  WVLBUR's  NUMBER  command. 

3)  Change  all  '1977',  '1978',  ’1979',  '1980',  '1981',  '1982'  to  the 
applicable  years. 

4)  Modify  line  499  to  contain  the  appropriate  span  of  years. 

5)  Modify  line  503  to  contain  the  appropriate  date. 

6)  Replace  the  source  code  in  WEU2LLC.PROGS78. 

7)  Save  the  source  code  as  a separate  data  set. 

8)  Recreate  the  load  module. 
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A - RATE  (EXAMPLE  BMCM) 
B - NUMERIC  RATING  CODE 
C - PAY  GRADE 


D - REQUIREMENT  FOR  POM  YR  - 1 
E - REQUIREMENT  FOR  POM  YR 
F - REQUIREMENT  FOR  POM  YR  + 1 
G - REQUIREMENT  FOR  POM  YR  + 2 
H - REQUIREMENT  FOR  POM  YR  + 3 
I - REQUIREMENT  FOR  POM  YR  + 4 


PROGRAM:  BKERPREP  LRECL  = 80 

INPUT:  GO.  TTLCARDS  DSORG  = PS 

A - RATING  ABBREVIATION 
B - RATING  TITLE 
C - NUMERIC  RATING  CODE 


-134- 


F 


G 


5 10  15  20  25  30  35  40  4 5 50  55  GO  G*5  7 0 75 


PROGRAM:  BKERPREP 


LRECL  = 80 


INPUT:  GO . O F FC  AND 


DSORG  = PS 


A - OC  TITLE 

B - OC  REQUIREMENT  POM  YR  - 1 
C - OC  REQUIREMENT  POM  YR 
D - OC  REQUIREMENT  POM  YR  + 1 
E - OC  REQUIREMENT  POM  YR  + 2 
F - OC  REQUIREMENT  POM  YR  + 3 
G - OC  REQUIREMENT  POM  YR  + 4 
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Sample  Output: 


i 

i 

i 


AVIATION 

STRUCTUR  AL 

MECHANIC 

PAGE  7 

PROJEC 

TED  REQUIREMENTS 

RATE 

PY  1977 

FY  1978 

FY  1979 

FY  1980 

FY  1981 

FY  1982 

ABCS 

384 

380 

365 

3 57 

361 

361 

A (ISC 

521 

513 

510 

4 97 

502 

502 

AMS  1 

1296 

1278 

1238 

1205 

1210 

1210 

AMS2 

1640 

1609 

1567 

1567 

1571 

1571 

AMS  3 

1832 

1798 

1769 

1785 

1793 

1793 

AMHC 

430 

424 

422 

407 

411 

411 

A MH  1 

1091 

1075 

1060 

1040 

1050 

1050 

AMH2 

1324 

1299 

1300 

1296 

1299 

1299 

A MH  3 

1610 

1582 

1571 

1600 

1609 

1609 

AMEC. 

161 

161 

162 

160 

159 

159 

AME1 

532 

525 

508 

491 

494 

494 

AME2 

656 

657 

647 

631 

641 

641 

AME3 

730 

735 

724 

704 

709 

709 

TOTAL 

12207 

12036 

11843 

11740 

11809 

11809 

STRIKERS 

AMSAN 

1786 

183  0 

1795 

1728 

1743 

1743 

AMHAN 

1253 

1291 

1275 

1224 

1232 

1232 

AMEAN 

570 

554 

543 

526 

530 

530 

TOTAL 

3609 

3675 

3613 

3478 

3505 

3505 

SUMMARY  OF  REQUIREMENTS 


PAY 

GRADE 

FY  1977 

? Y 1978 

FY  1979 

FY  1980 

FY  1981 

FY  1982 

E-9 

3770 

3766 

3749 

3794 

382  1 

3821 

E-6 

S'7  35 

8771 

8731 

8837 

89  0 C 

8900 

E-~ 

32167 

32224 

32079 

32465 

32698 

32698 

E-e 

6 824P 

68357 

68049 

68868 

69363 

69363 

E-r 

34563 

8u545 

84088 

85118 

85734 

85734 

E-t- 

95-84 

95529 

950Q8 

96242 

96933 

96933 

ro:  al 

292942 

29319  1 

291794 

295324 

297449 

297449 

P.r  . 

E-3 

102531 

102222 

102875 

10431  1 

103654 

103654 

E-2 

4 3680 

4 373  C 

43  067 

44018 

45327 

45327 

E-1 

3 o 1 62 

3675  1 

359  38 

357  39 

3641  1 

36411 

TOI  AL 

132423 

182703 

181880 

1 84068 

185392 

185392 

NON  P.O. 

DESIGNATED 

STRIKERS  INCLUDED  IN 

NON- EETTY 

OFFICER  SUMMARY  ABOVE 

59291 

61050 

60738 

57879 

57386 

57386 

OFFICER  CANDIDATES 

: (ARE  NOT  INCLUDED  IN  ABOVE) 

OCMSN 

4350 

4350 

4350 

4350 

4350 

4350 

OCOCS 

1 38 

198 

193 

198 

1 S8 

198 

OCAOC 

378 

536 

302 

302 

302 

302 

OCNPP 

59 

59 

59 

59 

59 

59 

TOTAL 
OFF  CAND 

4985 

5143 

4 9 09 

4909 

4909 

4909 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


GRAND 

TOTAL 

4e0350  481037 

478583 

484301 

487750 

487750 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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9.4.2  DDBKORP 


The  Job  and  Its  Purpose: 

DDBKORP  generates  requirements  data  in  a format 
similar  to  that  of  the  Chief  of  Naval  Operations  Officer  Re- 
quirements Plan  for  six  fiscal  years. 

//GZCORP  JOB  (WEU2,  lq6,B,39,3C)  , ' POM  78  NAMES' 

//FUNIT  EXEC  PLTXCA!  L,NAMS=' WEU2LIC. NAKPS78' , DI SK^PDSO 05, 

//  PROGKAM=8KGRP,CORF=250K 

//GO.  HEADING  DD  DSN-WEU2G7C.  HEADER  .BKORP,  DT  SP=OLD,  rJNIT=FILE, 

//  VOL=SE?=FILE06,  DCB=  ( R FCFM  = ? , LRECI  = 1 2 0,  ELKBIZE=480  0) 

//GO. TITLES  DD  DSN=W EU 23 ZC. TITLE . BKORP, DTSP=OLD, UN TT =F ILE, 

//  VOI =SER=F7LE08, DCB= (RECFK=F,LRECL=1 30, BLKST7E=520C) 

//GO. DBS  IN  D X DD  DSN  = WEl'2LLC.  NAMPS78.  INDEX  (DESINDX)  , DI S P=3 HR , U N!T= F T L 
//  VOI =SER=PDSC05, DCB= (PECFM  = FB, LPECL=8", B LKS I ZE= 3 1 20) 

//GO.  CB  ASE  DD  DSN=  WEU2 L LC . O A X XX  , DTS P=  S HR  , 7 NT T = FILE , 

//  VOL=SE3=FILE36,DCB=  (P  2C FM  = F , LREC L = 3 50,  BLKSIZF.=  3 50) 

//GG. COVER  DD  DSN=WE U2GZC. COVER. PAGE. BKORP, DISP=OLD,UNIT= PILE, 

//  VGL  = SE3=FTLE06,DCB=(RECFM  = FE,LPZCL=90,BLKSIZE=3120) 

//GO. BUILD  DD  DSN=WEU 2GZC. BUILD .3 KORP, DTSP=OLB, UNIT=FIL E, 

//  VOL=SE?=FTLE06, DCB= (RECFM=FB, LRZCL=9  0, BLKS I Z E= 3 1 2 0) 

//GO.SYSOUT  DD  SY30tir  = A,  DCB=  (RECFM =FBA , LREC L= 1 20,3LKSI ZE=2 40 0) 

//GO. SYSIN  DD  *,DCB=BLKSTZE=80 

Data  Sets  Required: 

1)  //GO.DESINDX,  DESINDX,  the  index  of  valid  officer 
designator  codes,  paygrades,  and  titles. 

2)  //GO.OBASE,  OAXXX,  any  regional  (3)  officer  requirements 
base. 

3)  //GO.TITLES,  TITLE.BKORP,  a sequential  data  set  containing 
titles  for  each  report  page. 

4)  //GO. BUILD,  BUILD,  BKORP,  a sequential  data  set  containing 
ranges  of  designators  and  paygrades  included  on  each  page  of 
the  report. 

5)  //GO. HEADING,  HEADER.BKORP,  a sequential  data  set 
containing  print  characters  for  requirements  plan  matrix. 

6)  //GO. COVER, COVER. PAGE, BKORP,  cover  page  information. 


Preparation: 

1)  Extract  DDBKORP  from  DDJOBS78. 

2)  //GO.OBASE,  change  OAXXX  to  the  appropriate  officer 
requirements  base. 
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3)  //GO. COVER,  modify  COVER.PAGE.BKORP  to  contain  ap- 

propriate title  page  information. 

Generated  Output: 

1)  //GO.SYSOUT,  SYSOUT=A,  the  Officer  Requirements  Plan. 
See  Sample  Output. 


Data  Set  Layouts: 


A 

LRECL  = i30  130 

DSORG  = PS 

A = REPORT  GENERATOR  TITLE 


PROGRAM:  DDBKORP 
INPUT  FILE:  GO.TITLES 


A 

PROGRAM:  DDBKORP 
INPUT  FILE:  GO.HEADING 


LRECL  = 120 
DSORG  = PS 


A = PRINT  CHARACTERS  FOR  A GIVEN  MATRIX  LINE 
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5 10 

15  20  25 

30  35  40 

1 

45 

50  55  60 

— r~ 

65 

PROGRAM: 

DDBKORP 

LRECL = 

80 

INPUT  FILE: 

GO.  BUILD 

DSORG = 

PS 

A - KEY  NUMBER  OF  FIRST  DESIGNATOR  IN  MATRIX 

B - KEY  NUMBER  OF  LAST  DESIGNATOR  IN  MATRIX 

C - HIGHEST  PAYGRADE  IN  MATRIX 

D - LOWEST  PAYGRADE  IN  MATRIX 

E - 0-1  DIGIT  TO  SPECIFY  MATRIX  TYPE 
(0=SHORT  FORM  1 =EXPANDED  FORM) 


I 

I 

I 
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9.4.3  DDBASCOMP 


The  Job  and  Its  Purpose: 

DDBASCOMP  generates  a display  comparing  any 

two  enlisted  bases.  The  types  of  bases  included  in  the 

comparison  may  be  requirement  vs.  requirement, 

requirement  vs.  inventory,  inventory  vs.  requirement,  or 

inventory  vs.  inventory.  The  display  compares 

billets/men  by  rating  and  paygrade  at  an  all  Navy  level 

as  well  as  billets/men  for  each  specific  program 

element  sponsor  with  rating  and  paygrade. 

//G  SX  BASE  JOB  ( WEU 2,  386 , B , 3 0 , 30)  , • PON  78  NAMPS' 

//GO  EXEC  PLIXCALL, NAM 2= • VEV2LLC. NAMPS78* , DISK=PDS0D5, 

//  P BOG  RAM=3ASCON?,CORE=  1 50  K , OPTION  5='  CS  (48)  • 

//GO. COVER  DD  DSN=WFU2GSX . COVER , DISP=SH° , 

//  UNIT=FIIE, VOL=SER=FILE07f 

//  DC  B=  (BECF.^FB,  LP  ECI.  = 90  , BL  KS IZ  E=  3 1 2C ) 

//GO. STATUS 1 CD  DSN= WEU2 L LC . ST A TUS, DISP=SH R , 

//  UNIT=FTLE, VOL=SEF=FTLF34, 

//  DCB= (RECFM=F,LRECL=600,BLKSIZE=800) 

//GO.  SPOEX  DD  DSN=WEU2LLC.  NAMPS78. INDEX  (PESINDY)  ,DISP=SHR, 

//  UNTT=FILE,VOL=3EE=PDS005, 

//  DCB=  (RECFM=*B,  LR ECL  = 8 0 #BLK SI7 E= 3 1 20 ) 

//GO. INRAT  DD  DSN  = WE'J2LLC.NAMPS",8. INDEX  (RATINDX)  ,DISP=SHR, 

//  UNIT=FILE,VOL=SER=PDS005, 

//  DCB- ( R ECFM  = F3, LP ECL= 80 , BLKST Z E= 3 1 2 0) 

//GO. REG A 3 DD  DS N = WEU 2LLC . B AS E I D 1 , D IS P=S HR , 

//  DC 3= (RECFM=F, I R ECL = 350 , E LKST7 E= 3 5C , 1TMCT=1 ,OPTCD  = E) 

//  UNIT=FILE,VOL=SER=FTLE34 

//GO.REGB3  DD  DSN= WEU 2LLC . B AS I D2 , DIS P=SH R, 

//  DCB= (RECFM  = F ,LRECL=350,BLKSIZE=350rLT  MCT- 1 ,OPTCD  = E) 

//  (JNIT  = FIL£#  VOL=SER  = FILE34 

//GO.SYSOUT  DD  SYSOTJT  = A 

//GO.SYSPRTNT  DD  SYSOUT=A 

//GO. LISTOUT  DD  SYSOUT=A 

//GO.DIAGNOS  DD  SYSOUT=A 

//GO. SY SIN  DD  *,DCB=BLKSIZ2=80 

PATF78  1978 

CPRN  INPUT  1 INPUT2  105 

Data  Sets  Required: 


1)  //GO.STATUS1,  STATUS,  PL/1  regional  (1)  file  con- 
taining base  identification  codes  and  base  descriptions. 

2)  //GO.SPODX,  PESINDX,  index  program  element 
sponsors  and  titles. 
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3)  //GO.INRAT,  RATINDX,  index  of  valid  enlisted  rating 
codes  and  titles. 

4)  //GO.REGA3,  BASEID1,  PL/1  regional  (3)  file 

containing  requirement  or  inventory  base. 

5)  //GO.REGB3,  BASEID2,  PL/1  regional  (3)  file 

containing  requirement  of  inventory  base. 

6)  //GO. COVER,  COVER,  sequential  data  set  with  cover 
page  information. 


Preparation: 

1)  Extract  DDBASCOMP  from  DDJOBS78 

2)  //GO.REGB3,  BASEID2,  change  BASEID2  to  comparison 
base  identification  code. 

3)  //GO.REGB3,  BASEID2,  change  BASEID2  to  comparison 
base  identification  code. 

4)  //GO.SYSIN 

a)  DATEFY  YEAR  must  always  be  coded 

FY  = POM  year 

YEAR  = year  in  which  bases  are  to  be 
compared 

b)  OPRN  INPUTl  INPUT2  105  must  always  be 
coded 

INPUTl  = primary  base  identification  code 
INPUT2  = comparison  base  identification 

- _ j - 

Generated  Output: 

1)  //GO.SYSOUT,  SYSOUT  = A,  comparison  display. 

(See  Sample  Output) 
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BASE  COMP  AM ISON  SEPOMT 


IA002  EXCESS  1 275 


DYNAMICS.  INC. 

15825  SHADY  GROVE  ROAD 
ROCKVILLE.  MARYLAND  20850 


APPENDIX  k 


TABLE  (. 

i 51  Cl, 

STFNTS  - PKOGS7B 

ST  ART 

* 0 ? * 

PLOT  DSD. PLT 

3 TA  T 

*0F* 

B KO  R P . P L I 

j *;  h p 7* 

* 0 F * 

UPDATE .PLI 

• • • •-* 
.i  i iv  h : 

'•OF* 

OB AS  ELD. PLI 

S T A R r 

* p * 

DEL? EDIT. PLI 

START 

* OF* 

PLOTC.  PLI 

START 

♦ OF* 

f IN  REP. PLI 

START 

* OF* 

EKERPREP.COB 

START 

*OF* 

PIOTB.  PLI 

START 

♦ OF* 

AtiTOUT . PLI 

START 

* OF  * 

ARTESIA . FORT 

START 

♦ OF* 

VIDE  XT’. FORT 

START 

♦ OF* 

I3ASELD. PLI 

START 

♦ OF* 

EE  A S ELD.  PLI 

START 

♦ OF* 

ARTIR. PLI 

START 

♦ OF* 

ARTOUT.PLI 

START 

♦ OF* 

E3PA  PP.PLI 

START 

♦ OF* 

MREFORK.  PLI 

START 

♦ OF* 

DELTEXT. PLI 

START 

*Of* 

DELTLD.PLI 

START 

♦ OF* 

MPATE5. PLI 

START 

♦ OF* 

MFAST. PLI 

START 

*QF* 

DELTAS. PLI 

START 

♦OF* 

PELTAQB.  PLI 

START 

♦OF* 

NEPROG.PLI 

START 

♦ OF* 

DASCOMP. PLI 

START 

♦ OF* 

FORMAT.  PLI 

START 

♦ OF* 

EPDELTPP .PLI 

START 

* OF  * 

YRSSU3.PLI 

START 

♦Or  * 

NECDMP.PLI 

START 

* OF* 

NFPROG.PLI 

START 

♦ OF* 

SNUMPROB .COB 

START 

* OF* 

REFORMAT. COB 

START 

♦ OF* 

SUPPREPT. COB 

START 

♦ OF* 

NAMPNA  RM.COB 

START 

♦ OF* 

NNREP.  COB 

START 

♦ OF* 

INTERPTP.COB 

START 

♦ OF* 

NARMTA  PE. COB 

START 

♦ 0?* 

PFQRATI0.C03 

START 

*OF* 

SUPRATI0.C03 

START 

* OF  * 

SUM  D UPS . COB 

START 

♦ OF* 

BPSELCT.COB 

START 

♦ OF* 

BPFORM AT. COB 

START 

♦ OF* 

CALCSUPP.C03 

i 


I 


APPENDIX  3 

TABLE  OF  CON 

TENTS  - 

M SUB  El 

ARTESI A 

MEMBR 

ART  IN 

ME  MBS 

ARTOUT 

MEM  3S 

3ASCOM P 

MEMBP 

BKESAREP 

HE  MBS 

BKORP 

MEMBR 

BPDEL  TEP 

MEM  BP 

BPSELCT 

MEM  BP 

CALCSUPP 

MEM  BR 

DELTAQ 

MEHBR 

DELTAQ3 

MERER 

DELTEDIT 

MEM  EE 

DELTEXT 

MEMBR 

DELTLD 

MEMBR 

EBASELD 

MEM  BR 

ESPAPP 

MEMBR 

FINPEP 

ME  HEP 

FORMAT 

MEMBR 

IBASELD 

MEMBR 

INTERPTP 

MEMBR 

MF  AST 

MEMBR 

M REFORM 

MEMBR 

NAMPNA  RM 

MEMBR 

NARMTAPE 

MEMBR 

NSCDMP 

ME  MB? 

NEPROG 

MEMBR 

NNREP 

MEMBR 

03  AS  EL  D 

MEM3R 

PLOTS 

MEMBR 

PLOT  C 

MEMBR 

PLOT  DL  D 

MEMBR 

REFORMAT 

MEMBR 

REQR  ATIO 

MEMBR 

SNUMPROB 

MEMBR 

SUMDUPS 

MEMBR 

SUPPREPT 

MEMBR 

SUPR ATIO 

MEMBR 

UPDATE 

MEMBR 

VIDEXT 

MEMBR 

YRSSUB 

L 


A;  I-ENDI  Y C 

TABLE  0?  0 C NT  ENTS  - DDJJ3S7.1 


//*  i T A s "■  * ; F * PLOT  . CL  T ST  - INTERACTIVE  PLOTTING  ROUTINE 

//*  ST  APT  *0F*  DOPE  )TDLj  - COPY  REG  ( I)  BASE  TO  PLOTl 

//*  STA?r  *0F*  DDBKOR?  - CREATE  OFFICE:  REQUI E EMENTS  REPORT 

//*  START  *t>F*  D DO  UPDATE  - UPDATE  RE.,  (3)  OFFICER  BADE 

//*  START  *')?"  JDiU  PDA  TE  - UPDATE  REC  ( 3)  2N-I3TED  BASE 

//*  START  * OF*  D DO BAS  ELD  - I CA D OFFICER  BASE  FECK  REQUIREMENTS 

//*  START  *0F*  D DDELTEDIT  -LOCATE  ERRORS  AND  REFORMAT  REQUIREMENTS  DATA 

//*  START  *!)F*  DDPLOTC. BATCH  - PRINT  PLOTS  AT  Nil!  FROM  STATUS  FILE 

//*  START  *0F*  DDFINREP  - CREATE  IMPLEMENTATION  REPORT 

//*  ST AFT  “OF*  DDRAWLD  - LOAD  AND  SORT  DELTA 

//*  START  *0  F*  DDVIDEXT  - EXTRACTS  RAM  INVENTORY  FROM  FAST  TAPS 

//*  START  * OF*  DJIBA3ELD  - REFORMATS  INVENTORY  TO  9BY6  ARRAY 

//*  START  * OF*  DDARTESIA  - ADJUSTS  REQMNTS  TO  SPECIFIED  TOPfa  RATIO 

//*  START  * OF*  DEAR  TOUT  - REFORMATS  OUTPUT  UF  ARTESTA  TO  9BY6  ARRAY 

//*  START  *0 F * DDAPTIN  - REFORMATS  REGIONAL  (3)  BASE  FOR  INPUT  TO  ARTESIA 

//*  START  *0  F*  DDEBASFLD  - !<  EFCRMATS  RAW  REqP  TO  3 AS  E FORMAT: 

//*  START  *0F*  DDPLOTB  - GENERATES  PLOT  REPORTS 

//*  START  *0F * DDES? AP?  - APPORTIONS  BILLETS  TC  APPROPRIATE  SPONSORS 
//*  START  *0F*  DDRAWREq  - LOADS  RAM  REQUIREMENTS  FROM  TAPE  TO  DISK 
//*  START  * O F * DDBK  2RPREP  - GENERATES  REQUIREMENTS  IN  ERP  FORMAT 
//*  START  *0F*  DDMRE  FORM  - FORMATS  ENL  BASE  FOR  INPUT  TO  MFAST 
//*  START  *UF*  DDDELTEXT  - EXTRACTS  SPECIFIED  DELTA  FFOM  IDMS  BASE 
//*  START  *0F  * DDDELTL  D - LOADS  IDMS  DATA  BASE 

//*  START  “O^*  DDM RATES  - COMPUTES  INVENTORY  RATIOS  FROM  FAST  LOG 

//*  STAR™  *0F*  DDMFA3T  - PROGRAM  TO  SIMULATE  A DST AP . FAST  OUTPUT 

//*  START  *0 F*  UDFOBMAT  - FORMATS  ENLISTED  REQUIREMENTS  BASE 

//*  START  *0F*  DDBPDELTRP  - EYPASS  FINAL  REPORT  GENERATOR 

//*  START  *0 F*  DDBASCOMP  - PRODUCES  COMPARISON  REPORT  BETWEEN  BASES 

//*  START  *0F*  DDYR3SU3  - REPLACES  REQMNTS  OF  BASE1  WITH  BASE2 

//*  START  * OF*  DDNECDMP  - CREATES  A DATABASE  FROM  IDMS  DATABASE 

//*  START  *0?*  DDNERROGL  - LOAD  PART  OF  NEPROG,  CREATES  NEC  MA  ST 

//*  START  *0F * DONE PROG  - UPDATE  AND  PUNCH  PORTION  0?  NEC  SUBSYSTEM 

//*  START  *OF*  DDREQRATIO  - COMPUTES  REQUIREMENTS  RATIOS 

//*  START  *0F*  DDSUPPR  EPT  - SUPPORT  CALCULATIONS  REPORT 

//*  START  *0F*  DDNNREP  - PROGRAM  TO  GEN  REPORT  OF  NAPMTAPE 

//*  START  *0 F*  DDSUPRATIO  - CALCS  GENERAL  RATIOS  FOR  SUPPORT  ALGORITHM 

//*  START  *0  F * DEN  AP  MT  APE  - CREATES  REQMNT  RATIOS  TAPE  FOR  WARM 

//*  STAPT  *0F * DDNAMPN ARM  - PROGRAM  TO  PRODUCE  OP90 1 7TRACK  TAPE 

//*  START  *0F*  DDINTERPTP  - PROGRAM  READS  NARM  TAPE  WITH  SUPPORT  RATIOS 

//*  STApT  *0P*  DDREPORMAT  - F FOG  REFORMAT  CALCED  SUPP  RECDS  INTO  9X6  MAT 

//*  STAPT  *0F*  DDCALCSIJPP  - PROGRAM  CALCULATES  SUPPORT  *0R  GIVEN  DELTA 

//*  START  *0F*  DDBPSELCT  - PROGRAM  BY  PASSES  IDMS  LOAD/EXTRACT  FOR  SUPP 

//*  STAPT  *0  F*  DDBPFORM AT  - REFORMATS  DELT AXX . EXTRACT 

//*  START  *0F*  DELTAQ . CLIST  - INTERACTIVE  IDMS  QUERY 

//*  START  *0  F*  DDDELTAQ  B - PATCH  VERSION  OF  DELTA  QUERY 


APPENDIX  D 


COMMON  MINI-NAMPS  DATA  SET  LAYOUTS 


r\ 


Standard  Data  Set  Layout  Format 


B 


C 


D 


1 


PROGRAM:  Program  using  file*  LRECL  = Logical  Record  Length 

FILE:  DDNAME  DSORG  = File  Type 

A = description 

B = description 

C = description 

D = description 

etc. 


* If  blank  the  file  is  used  by  all  or  many  programs. 


PROGRAM : 


LRECL  = 80 


INPUT:  RATINDX 


DSORG  = PS 


A - RATING  ABBREVIATION 
B - NUMERIC  RATING  CODE 
C - DUMMY  GROUP  CODE  ('00') 
D - OP- 01  GROUP  CODE 
E - PERS  GROUP  CODE  (I)OD) 

F - ALLOWABLE  PAYGRADES 


G - RATING  TITLE 


it r 


5 10 


T- 

15 


20 


2T 


30 


35 


40 


45 


■ I ■ < ‘ ■ I ■ > ■ I ■ ■ ■ | , 1-  ■ | | 1s.  I 

50  55  60  65  70  75 


PROGRAM: 

INPUT: 


DESINDX 


LRECL  = 80 
DSORG  = PS 


A - DESIGNATOR  CODE 
B - DUMMY  GROUP  CODE  ('00') 

C - OFFICER  GROUP  STRUCTURE  CODE 
D - ALLOWABLE  RANKS 
E - DESIGNATOR  TITLE 


PROGRAM: 


LRECL 


INPUT:  PESINDX 


DSORG 


A - SPONSOR  CODE  (P.E.  ) 
B - SHORT  SPONSOR  TITLE 
C - LONG  SPONSOR  TITLE 


P77//M 


PROGRAM:  LRECL  = 80 

INPUT:  CLAINDX  DSORG  = PS 


A - CLAIMANT  CODE 
B - SHORT  CLAIMANT  TITLE 
C - LONG  CLAIMANT  TITLE 


PROGRAM:  LRECL  = 80 

INPUT:  GRPINDX  DSORG  = PS 

A - HR  CODE  - OFF/ENL 

B - OP-01  RATING  GROUP  CODE  /OFFICER  GROUP  CODE 
C - PERS  RATING  GROUP  CODE  (DOD) 

D - OP-01  GROUP  TITLE/OFFICER  GROUP  TITLE 
E - PERS  GROUP  TITLE 


INPl’T  FILE:  STATUS  DSORG  = DA  REGIONAL  (1 ) 

A - BASE  IDENTIFICATION 
B - BASE  TYPE  NARRATIVE 
C - START  BASE  ID  NARRATIVE 
D - DELTA  CODE  NARRATIVE 

E - CONSTRAINED/UNCONSTRAINED  NARRATIVE 


A 


B C 


D 


E 


] 


373  378 


XV. 


N/^ 


738  745 


17318  1 2373 


I "< 
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PROGRAM: 


LRECL  = 12785 


KILE:  PLOT  D 


DSORG  = DA  (REGIONAL  1) 


A - RATING  (DA  KEY) 

B - DESIGNATOR  (DA  KEY) 

C - BASE  IDENTIEICATION  CODE  #1 

D - 10  BY  6 ARRAY,  6 BYTES  PER  ITEM -ENL/OFF  REQUIREMENTS 
(10  = 0 PAYGRADE  AND  TOTAL) 

(6=6  FISCAL  YRS:  POM-1  thru  POM+4) 

E - 35  BASES  AS  DEFINED  BY  C AND  D 

F - POM  YR 


FILE: 


EA  XX  Y 

IAXXY 

OAXXY 


DSORG = PS 

DSORG  = DA  (REGIONAL  1/3) 


A - SPONSOR  (P.  E.  ) CODE 
B - RATING  ABREV. /DESIGNATOR 
C - NUMERIC  RATING  CODE/BLANK 

D - 1st  FISCAL  YR  (POM  YR  - 1 ) PROJ.  REQUIREMENTS 
9 PAYGRADES/RANKS 


E - 6th  FISCAL  YR  (POM  YR  + 4)  PROJ.  REQUIREMENTS  (POM  YR  + 3 = POM  YR  + 4) 
F - BASE  IDENTIFICATION  CODE 


APPENDIX  E 

MINI-NAMPS  TERMINOLOGY 


This  terminology  consists  of  dynamic  terms  which  are  logically 
structured  so  as  to  define  a data  aggregates  source,  content,  and 
applied  constraints.  These  terms  are  used  as  names  for  specific  data 
aggregates  both  by  the  user  in  conversation,  interactive  query  and  in 
specifying  report  content,  and  by  the  system  for  data  identification 
and  tracking.  The  terms  and  their  definition  appear  below: 


BASE  Any  one  of  the  following  data  aggregates  (dates  sets) 

which  are  till  stored  in  the  same  format 

1)  Enlisted  Requirements 

2)  Enlisted  Projected  Inventory 

3)  Officer  Requirements 

DELTAGG  The  collection  of  all  increment/decrement  loaded  into 
the  NAMPS  DB  (IDMS  database) 

DELTAXX  A collection  of  increments/decrements  whose  collection 
criterion  was  stipulated  by  OP-121  (see  section  3)  for 
further  information  on  DELTA  coitent)  and  which  is  a 
subset  of  DELTAGG  flagged. 


EXAMPLES: 

DELTA01  - All  INC/DEC's  of  SPP=07. 
DELTA20  - All  INC/DEC's. 


o 


BASID 


The  5 character  alphanumeric  code  that  uniquely 
identifies  a Base  to  the  system  and  its  users.  The 
positional  characters  are  defined  as  follows: 


POSITION  1: 

E Enlisted  Requirements 

I Enlisted  Projected  Inventory 

O Officer  Requirements 

POSITION  2: 

A 1 February  starting  Base 

B 1 March  starting  Base 


POSITION  3 through  4: 

00  No  DELTA'S  have  been  applied  (except  PBS's 
which  are  included  in  the  starting  base  from 
OP-102). 

01  DELTA01  has  been  applied. 


POSITION  5: 

0 No  constraints 

1 Authorized  end  strength  and  paygrade  constraints 

2 Alternate  end  strength  and  paygrade  constraints 


EXAMPLES: 


EA001  = a)  Enlisted  Requirements 

b)  1 February  starting  base  used 

c)  No  DELTA  applied 

d)  Authorized  end  strength  and  paygrade 

constraints 

EB200  = a)  Enlisted  Requirements 

b)  1 March  starting  base  used 

c)  DELTA20  applied 

d)  Unconstrained 


OAOOO  = a)  Officer  Requirements 


b)  1 February  starting  base  used 

c)  No  DELTA  applied 

d)  Unconstrained 

NOTE:  All  Base  ID  information  is  available  on  the  PLOTC  query 

if  N ARRATIVE^YES.  It  will  also  accompany  all  other 
reports. 


! 
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l.o  PROGRAM  DESCRIPTION 


1.1  The  PLOT  Query  is  one  of  two  interactive  information  retrieval  modules 
and  is  a part  of  the  POM-78  NAMPS  Report  and  Display  subsystem.  Its 
function  is  two  fold: 

• The  Plot  Query  allows  the  user  to  display  plots  using  data  from  any 
of  the  available  Bases  of  the  POM-78  NAMPS  System  for  the  purpose 
of  comparing  the  selected  number  of  Billets  and/or  Men  in  the  bases 
for  specified  Ratings/Paygrades,  and  Rating  Groups. 

• Additionally  it  allows  the  user,  after  he  has  specified  2 bases  to 
query  for  those  ratings/paygrades  at  which  the  absolute  difference 
of  the  Billets  and/or  Men  meet  a specified  criterion. 


2.0  COMMANDS 

2.1  BASE  = BZXXY,  BZXXY 

BZXXY, BZXXY, BZXXY 


i 

I 

I 

I 

I 

I 

I 

I 

I 

I 


where  B = 
Z = 
XX  = 
Y = 


type  of  base 
start  BASE  ID 

Delta  ID  XX  (01,02,03 35) 

Top-Six  Ratio  + End  Strength  Combination 


Description: 

The  BASE  command  is  used  to  specify  which  of  the  available  bases 
are  to  be  queried  or  used  for  plotting.  The  types  of  available  bases 
are:  Enlisted  Manpower  Requirements,  Projected  Personnel  Inventory, 
and  Officer  Manpower  Requirements.  The  number  of  bases  in  each 
type  is  determined  by  the  number  of  what-if  Delta's  that  have  been 
applied.  (OP-121  will  always  be  aware  of  available  bases.) 


Keyword  Specification: 

No  less  than  two  or  more  than  three  keywords  may  be  specified. 

If  the  intended  task  is  to  query,  only  two  bases  may  be  specified. 

If  the  intended  task  is  to  plot,  two  or  three  bases  may  be  specified. 

The  type  of  base  is  indicated  as  follows: 

E = Enlisted  Manpower  Requirement 

I = Projected  Personnel  Inventory 

O = Officer  Manpower  Requirement 
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The  specific  base  of  a particular  type  is  indicated  as  follows: 
Start  BASE  ID:  (Z) 

A = 1 February  Billet  File 

B = 1 March  Billet  File 


Delta  ID:  (XX) 

00  = After  PBD's,  before  SPP 

01  = Base  0 with  Delta  01  applied  at  authorized  End  Strength  and 

Top-Six  Ratio.  (In  the  case  of  inventory,  the  inventory  generated 
using  Reg.  BASE  1.) 

02  = Base  0 with  Delta  02  applied  at  authorized  End  Strength  and 

Top-Six  Ratio. 

nn  = The  available  number  depends  on  the  number  of  Delta's  that 
have  been  applied. 


Constraint  ID:  (Y) 

0 = Unconstrained  base 

1 = Authorized  End  Strength  and  Top-Six  Ratio 
n = Alternate  End  Strength  and  Top-Six  Ratio 


Examples: 

BASE  = EA000,  EA001,  IA000 


Use  the  Enlisted  Manpower  Requirement.  (Unconstrained),  Enlisted 
Manpower  Requirement  (at  Authorized  End  Strength  and  Top-Six 
Ratio),  and  Projected  Personnel  Inventory  - fed  by  EA001.  Starting 
base  was  1 February. 


BASE  = EA001,  EA011 

Use  the  Enlisted  Manpower  Requirements  before  any  Delta  has  been 
applied,  and  the  Enlisted  Manpower  Requirements  to  which  Delta 
01  has  been  added.  Starting  base  was  1 February. 

Special  Considerations: 

Exactly  two  (2)  bases  must  be  specified  for  TASK  = QUERY.  For 
TASK=PLOT,  two  (2)  or  three  (3)  bases  may  be  specified. 


2.2  LABL  = A,  A 

A,  A,  A,  where  A = any  printable  character 


Description: 

The  LABL  command  assigns  the  character  that  is  to  be  associated 
with  each  base  specified  in  the  BASE  command,  and  which  will  appear 
in  the  plots. 
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Keyword  Specification: 


as  indicated 
Example: 

LABL  = R,  1 

The  character  appearing  in  the  plot  for  the  first  base  specified, 
will  be  R;  the  character  for  the  second  base  will  be  1. 

Special  Considerations: 

It  is  suggested  that  this  LABL  command  be  issued  immediately  after 
the  BASE  command,  thus  avoiding  confusion  as  to  which  plotted 
label  represents  which  base. 


2.3  TASK  = QUERY 
PLOT 

Description: 

The  TASK  = QUERY  command  specifies  that  the  user  wishes  to 
query  those  bases  specified  in  the  BASE  command. 

The  TASK  = PLOT  command  specifies  that  the  user  wishes  to  display 
or  print  desired  plots  of  manpower/inventory  by  fiscal  year  for  those 
bases  specified  in  the  BASE  command. 

Keyword  Specification: 
as  indicated 

Example: 

TASK  = QUERY 

Special  Considerations: 

If  TASK  = QUERY,  then  only  two  bases  may  be  specified  in  the 
BASE  command. 

If  TASK  = PLOT,  then  two  or  three  bases  may  be  specified  in  the 
BASE  command. 

The  CRIT  command  can  only  be  used  in  conjunction  with  the  TASK  = QUERY 


command. 

CRIT  = YY.XX.ZZ 

YY  = fiscal  year 

YY,  XX,  ZZ 

XX  = % 

ZZ  = paygrade  (optional) 

'Hie  first  two  keywords  are  alwuys  required;  the  third  keyword  is 
specified  only  if  you  wish  to  coinpure  at  a specific  paygrade  level. 

The  fiscal  yeur  specified  determines  in  which  year  the  comparison 
will  be  done. 

(i.e..  If  POM-YR  = 78  then  the  valid  YY  values  are: 
77,78,79,80,81,82) 

The  % difference  specifies  how  great  the  minimum  difference  must 
be  between  the  ratings  of  the  two  bases  specified  by  the  BASE  command 
in  order  to  meet  the  selection  criterion. 


The  valid  range  for  XX  is  .01  through  .99.  The  paygrade  (ZZ)  is 
specified  only  if  the  comparison  is  to  be  done  at  a specific  paygrade. 
The  valid  range  is  01  through  09  for  officers,  and  04  through  09 
for  Enlisted.  If  the  paygrade  keyword  is  not  given,  the  comparison 
will  be  done  at  total  rating  level. 

Examples: 

CR1T  = 78, .05 


Select  all  ratings  whose  % difference  is  equal  to  or  greater  than 
.05.  Compare  in  fiscal  year  78. 

CRIT  = 80,  .10,  05 


Select  all  ratings  whose  % difference  is  equal  to  or  greater  than 
.10;  compare  at  paygrade  E5  only  in  fiscal  year  80. 


Special  Considerations: 

Paygrade  must  be  2 digit  number  in  range  01-09  . 


2.5  RTGP  = DOD  (XX) 

OP1  (XX) 

OOP  (XX)  SUM  PG  RAT(Y-Z) 

LIST(RAT1NG  1,  RATING  2 NOSUM,  NOPG,  NORAT 

(DESIGNATOR  1,... 

Description: 

The  RTGP  command  specifies  the  particular  ratings  or  designators 
to  be  plotted  and  the  desired  format  for  each  plot.  The  RTGP  command 
must  be  used  in  conjunction  with  the  TASK  = PLOT  command 
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Keyword  Specifications: 


Primary  Keywords  - 

DOU(XX)  - HATING  GROUPS  used  by  PERS-2  where 

XX  = specific  rating  group  (2  digit 
number) 

OPl(XX)  - RATING  GROUPS  used  by  HEW  where 

XX  = specific  rating  g'  oup 

OGP(XX)  - DESIGNATOR  GROUP  where  XX  = 

specific  designator  group 

NOTE:  See  Enclosure  A for  rating/designator  groups 

LIST  (RATING  1,  RATING  2 ) 

or 

LIST  (DESIGNATOR  1,  DESIGNATOR  2 ) 

Specific  list  of  ratings  or  designators  to  be  plotted.  A maximum 
of  10  ratings  or  designators  may  be  specified. 

Secondary  Keywords: 

SUM/NOSUM,  PG/NOPG , RAT  (Y-Z)/NORAT 

SUM,  PG  - all  ratings/designators  specified  by  primary  RTGP 
keyword  will  be  aggregated  before  plotting.  Plots  will  be 
printed  by  specific  paygrade  (default  secondary  keywords) 

SUM,  NOPG  - all  ratings/designators  specified  by  primary 
keyword  will  be  aggregated  before  plotting.  Plot  will  be 
at  total  rating/designator  level. 

NOSUM,  PG  - plots  will  be  by  individual  rating/designator 
and  specific  paygrade. 

NOSUM,  NOPG  - plots  will  be  by  individual  rating/designator 
at  total  paygrade  levels. 

RAT(Y-Z)  - compute  the  ratio  of  paygrades  Y-Z  to  the  total 
rating/designator  level.  RAT(Y-Z)  can  only  be  used  if  PG 
is  specified.  Y and  Z can  be  any  2 digits  between  1 and  9 
with  Y less  than  Z. 

NORAT  - no  ratio  calculated  (default) 


1 

I 

I 


r 


Examples: 


RTGP  = LIST  (AH,  ABli),  SUM,  PCI,  HAT  (4-7) 

For  the  bases  specified  in  the  BASE  command,  aggregate  ratings 
AB  and  ABB  and  display  plots  by  paygrade.  Calculate  the  ratio 
of  paygrades  4-7  to  total  AB  + ABH  ruting  levies. 

RTGP  = DOD  (10),  NOSUM,  NOPG 

For  the  bases  specified  in  the  BASE  command,  display  plots  of  all 
ratings  in  PERS-2  rating  group  10  at  total  levels. 

KTGP  = LIST  (1050,  1610,  1800,  2100),  NOSUM,  PG 

Display  plots  of  designator  1050,  1610,  1800,  and  2100  individually 
by  paygrade. 

KTGP  = LIST  (BM),  SUM,  NOPG,  RAT  (7-9) 

Display  plot  of  rating  BM  at  total  level.  Calculate  the  ratio  of  paygrades 
E7  through  E9  to  total  levels,  i.e.,  E7  - E9 

El  - E9 

Special  Considerations: 

The  RTGP  keywords  must  be  a continuous  string  of  characters  separated 
by  commas.  The  first  blank  field  will  terminate  the  RTGP  command. 
Ratings  or  designators  in  the  LIST  keyword  must  be  enclosed  in 
parentheses  and  separated  by  commas. 

If  BASE  type  is  E or  1 then  only  primary  keywords  DOD(  ),  OP  1 ( ) 
and  LIST  (RATING  1,...)  are  applicable. 

If  BASE  type  is  O then  only  primary  keywords  OGP  ( ),  and  LIST 
(DESIGNATOR  1 ) are  applicable. 

A maximum  of  10  ratings  or  designators  may  be  used  with  the  LIST 
primary  keyword. 


2.6  DOIT 

Description: 

DOIT  causes  execution  of  specified  TASK  (PLOT  or  QUERY)  on 
defined  BASES. 

Keyword  Specification: 

None 
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Special  Considerations: 


If  TASK  = QUERY,  then  the  following  information  must  be  supplied 
before  execution  of  the  DOIT  command: 

TASK  = QUERY 

BASE  =BZXX Y,  BZXXY 

CHIT  = YY,  XX,  ZZ  (where  ZZ  is  optional) 

If  TASK  = PLOT,  then  the  following  must  be  supplied: 

TASK  = PLOT 

BASE  = BZXXY,  BZXXY,  BZXXY 

LABL  = 1,  2,  3 (any  two  or  three  characters) 

RTGP  = (RTGP  information) 


2.7  PRINT 
Description: 

If  TASK  = PLOTS  then  PRINT  causes  same  action  as  DOIT,  except 
that  the  results  will  be  printed  off-line  (at  NIH) 

Keyword  Specification: 

None 

Example: 

PRINT 

Special  Considerations: 

Is  only  valid  if  TASK  = PLOT. 

2.8  END 
Description: 

Returns  program  control  to  the  executive  routine.  All  selected 
plots  specified  by  PRINT  commands  will  be  printed  off-line  at  NIH 
(a  job  number  will  appear  after  the  END  OF  SESSION  statement) 

Keyword  Specification: 

None 

Example: 

END 

Special  Considerations: 

None 
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3.0 


Time  Sharing  Option  (ISO) 

3.1  Summary 


i 


The  interactive  programs  within  the  MINI-NAMPS  System  are  executed 
using  the  Time  Sharing  Option  of  OS.  In  conversational  mode,  execution 
starts  as  soon  as  you  send  the  instruction  from  the  terminal,  and  results 
are  printed  at  the  terminal  as  soon  as  the  program  produces  them.  This 
section  describes  the  commands  necessary  to: 

• Identify  yourself  to  the  system 

• Define  characteristics  of  the  session 

• End  your  terminal  session. 


3.2  LOGON  Procedure 

a)  The  first  thing  you  must  do  to  begin  a terminal  session  is  to  establish 
communication  with  the  Nil!  computer  facilities.  This  is  dependent  on 

the  type  of  terminal  and  coupling  system  available  for  the  user.  Since 
telephone  numbers  change  periodically,  it  is  suggested  that  users  refer 
to  recent  issues  of  the  NIH  publication  INTERFACE  or  call  the  NIH  Computer 
Center  for  current  telephone  numbers. 

b)  Once  your  terminal  has  received  a signal,  type  LOGON  followed 
by  identification  information  in  the  following  format: 


LOGON 

where: 


aaaaiii/ttt/bbb  REGION  (nnn) 

aaaa  is  your  account  code 

iii  are  your  initials 

ttt  is  the  terminal  identification  number 

bbb  is  the  account  box  number 

nnn  is  the  core  storage  required 

(300  is  required  to  execute  PLOTC 
and  DELTAQ) 


after  typing  in  the  appropriate  information  hit  the  carriage  return  button 
on  your  terminal. 


c)  The  system  will  prompt  you  for  your  keyword  on  the  next  line  as 
follows: 

KEYWORD?  key 

where:  key  is  your  designated  keyword 

after  typing  your  keyword,  hit  the  carriage  return  button. 


3.3  Executing  PLOTC 

To  execute  the  interactive  program  PLOTC  simply  type  EXEC  PLOTC 
and  hit  carriage  return.  The  program  will  execute  and  commands  should 
be  input  according  to  the  formats  described  in  the  users'  guide. 
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3.4 


LOGOFF  l’roccdure 


lind  your  terminal  session  by  typing  LOGOFF  followed  by  u carriage 
return.  The  cornrnund  will  display  billing  information  for  the  session;  display 
date  time,  und  length  of  session;  and  disconnect  your  terminal  from  TSO. 


4.0  SAMPLE  SESSION 


I 


IKJ540  120  ENTER  I I'l.iHI  -- 

lotion  eii2  i c ' n88 '‘SOA  re^ii  on£250  > 

I EVWORD'"*  MHH 

MEU2GZC  LOGON  1H  PROGRESS  HT  0*:5A:07  OH  MhV  13,  i^a 
NIH-'DCRT  n 0 +4TS0+  + 

rriv-’s  u„:f  in  3 ti"<i  i tab  1 e for  f r«e  test  i ng  anti  i 5.00  pm.  todaq 
i b n o t j f i c-t  t i o n a • d escr  i b ed  i n i n t. * r fa  c e 62  n ot..i  £ f f * r • t.  j ••••  * 
TSO  LIME  180 
READY 

kV'  k r p*  1 M t.  £ 


ROM  - 78  MOHRS  PLOT  SYSTEM 

SESS I OH  ST  OPTED : 09:  59  1 1 5/ 1 3 -vA 

NORROTI"E"':  no 

ROSES  GOOILOBLE 
OFFICER:  OOOOO 

ENLISTED:  E0001  E0002  ER000  E0010  EGO  12  10002  10012 

?:  task=querq 

? : ba  s e= eaO 02, i aO  0 2 


cnt=78,.10 


1 s d o i t 

SELECTED  ROT I NOS : 

ODR  OO  BR  CTI  CIJ  Ef!  EH  FTB  GHM  HO  MU  HC 
PI  SM  TO 
3:  ta  s k=  plot 

' • base=ea0  02 , i a o 0 2 


' : labl-e  j i 

r t g p=  list  3mm  > , p 3 , r«t  t.  >:  5-8  > 
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^AD-A031  786 


3 of  3 

404031786 


B-K  DYNAMICS  IMC  ROCKVILLE  MD 

POM-79  MINI-NAMPS  FUNCTION  AND  SPECIFICATION# (U) 


F/G  5/9 


UNCLASSIFIED 


SEP  76  G D CHRISTIE 
BKD-TR-3-213 


N00014-76-C-0726 

NL 


ER002 
I hii  02 


Copy  available  to  DDC  dow  no \ 
pma*  fully  legible  reproduction 

PROUD' TPI  I I 'I  ■ • - • f r . I II  hi  it  If  ’til  ft  If  I*-:  •:  1 IRMPS  REPORT  21.03) 
PROJECTED  U II  i i f I ' If  D-OMMH  ll"*HT0RV 


SUM*.  Htl.  PRT 1 f IRS  [ if SIOMHTORS  IH 
RTGP=LIST  - HUM 

PR VGRfiOE  s it  4 


GO?:  yes 


SUM:  HLL  PhT I MGS'fiFrS I GMRTORS  IN 
RTGP=LIST  - GMM 

PRVGRROE:  05 


GO?:  no 


RRTKK5-8)  = 


69.000’i  ♦ 

* 
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r t-3P=  l i ■■  t<999' ' ' • lo'p'j  1 1 it  t • 4 • 


?:  do  i t 


F ERA  ft  2 PROJECTED  ENLISTED  AUTHORIZATIONS  • HAMPS  REPORT  21.03) 

I I AO 02  PROJECTED  EHLISTED  PERSOHHEL  IH'-'EHTORV 

SUM*  ALL  RAT I NGS/DES I SHAT ORS  IH 
RTGP=LIST  - 9999 

PAVGRADE:  1 - 9 


M 483500 
E 482600 
M 481700 
/ 480800 
B 479900 
I 479000 
L 478100 
L 477200 
E 476300 
T 475400 
S 474500 
473600 


***************************** 
* * 

* RAT  1 0<  4-9)  = 61.5007.  * 

* * 
***************************** 

?:  print. 


?:  end 


SESSION  ENDED:  10:05  05-1  3/76  ****** 

JOB  663  GZCPLOT  SUBMITTED 
READ',’ 

1 0 '3  0 f f 

CHARGE  - $6.09 

CRH  TIME  = 2.31  SECONDS  < MODEL  168) 

ELAPSED  TIME  = 00:10:19 
I '0  COUNT  =_2 

WEU2GZCLQG6E0  OFF  TSO  AT  10:06:39  ON  MAY  13,  1976+ 
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ENCLOSURE  A 


GROUP 

TITLE 

DOD  (00) 

Area  0 - Gun  Crew  6c  Seamanship  Speciali 

DOD  (01) 

Area  1 - Electronic  Equip  Repairman 

DOD  (02) 

Area  2 - Communications  6c  Intell  Spec 

DOD  (03) 

Area  3 - Medical  & Dental  Specialists 

DOD  (04) 

Area  4 - Other  Tech  6c  Allied  Specialists 

DOD  (05) 

Area  5 - Administrative  Spec  6c  Clerks 

DOD  (06) 

Area  6 - Elec/Mech  Equip.  Repairmen 

DOD  (07) 

Area  7 - Craftman 

DOD  (08) 

Area  8 - Service  6c  Supply  Handlers 

DOD  (09) 

Area  9 - Non  Designated 

OP1  (01) 

Group  I - Deck 

OP1  (02) 

Group  II  - Ordnance 

OP1  (03) 

Group  III  - Electronics 

OP1  (04) 

Group  IV  - Precision  Equipment 

OP1  (05) 

Group  V - Administration  and  Clerical 

OP1  (06) 

Group  VI  - Miscellaneous 

OP1  (07) 

Group  VII  - Engineering  and  Hull 

OP1  (08) 

Group  VIII  - Construction 

OP1  (09) 

Group  IX  - Aviation 

OP1  (10) 

Group  X - Medical 

OP1  (11) 

Group  XI  - Dental 

OP1  (12) 

Apprenticeships 

OGP  (13) 

Unrestricted  Line 

OGP  (14) 

Restricted  Line 

OGP  (15) 

Unrestricted  Line-Perspective  Staffcorps 

OGP  (16) 

Staff  Corps 

OGP  (17) 

Lim  Dty  Off  - Line  (Surface) 

OGP  (18) 

Lim  Dty  Off  - Line  (Submarine) 

OGP  (19) 

Lim  Dty  Off  - Line  (Aviation) 

OGP  (20) 

Lim  Dty  Off  - Line  (General) 

OGP  (21) 

Lim  Dty  Off  - Staff  Corps 

OGP  (22) 

Warrant  Off  - Line  (Surface) 

OGP  (23) 

Warrant  Off  - Line  (Submarine) 

OGP  (24) 

Warrant  Off  - Line  (Aviation) 

OGP  (25) 

Warrant  Off  - Line  (General) 

OGP  (26) 

Warrant  Off  - Staff  Corps 
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APPENDIX  G 

POM-78  DELTA  QUERY  - USER'S  GUIDE 


INDEX 


PROGRAM  DESCRIPTION 

COMMANDS 

2.1  SETD 

2.2  SETB 

2.3  SHOW 

2.4  LIST 

2.5  PRNT 

2.6  SUMI 

2.7  RATE 

2.8  FLAG 

2.9  END 

TIME  SHARING  OPTION  (TSO) 

3.1  Summary 

3.2  LOGON  Procedure 

3.3  Executing  DELTAQ 

3.4  LOGOFF  Procedure 


SAMPLE  SESSION 


1.0 


Program  Description 


1.1  The  Delta  Query  System  is  one  of  two  interactive  information  retrieval 
modules  and  interfaces  with  the  IDMS  database.  Its  function  is  two  fold: 

• It  allows  the  user  to  query  a specific  delta  for  billets  which 
meet  specific  criteria  and  to  array  the  output  in  one  of  several 
ways. 

• It  allows  the  user  to  define  a DELTAXX  for  subsequent  extraction 
or  query  by  flagging  or  unflagging  specified  INC/DEC's. 

2.0  Commands 

2.1  SETD  [ X] 

where  X = a one  or  two  digit  delta  number  between  1 and  30. 

Description: 

The  SETD  command  is  used  to  specify  the  delta  or  reset  the  delta. 

If  no  'X‘  is  specified,  the  current  delta  will  be  displayed. 

Keyword  Specification: 

X 

Examples: 

SETD  20 

(Reply)  Delta  Reset  to  20 
SET  D 

(Reply)  Present  Delta  is  20 
Special  Considerations: 

Only  billets  which  are  market  as  belonging  to  the  specific  delta 
will  be  considered  when  querying. 

NOTE:  Items  shown  in  brackets  are  optional.  The  brackets  themselves 
do  not  comprise  a part  of  the  command. 


2.2  SETB  (AAA| 

where  AAA  = one  of  the  5 valid  3 character  keywords. 

Description: 

The  SETB  command  is  used  to  restrict  the  query  to  a specified  base. 
Optionally,  the  present  base  will  be  displayed  if  no  keyword  is  specified. 
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Keyword  Specification: 

Valid  Keywords  are: 

ENL  - Enlisted 
OFF  - Officer 

GSC  - General  Service  Civilian 
WBC  - Wage  Board  Civilian 
ALL  - All  of  the  above. 

Examples: 

SETB  ENL 

(Reply)  Base  Reset  to  ENL 

SETB 

(Reply)  Present  Base  is  ENL 
Special  Considerations: 

Only  billet  counts  from  records  which  meet  the  specified  base  will 
be  considered  in  the  query.  If  'ALL'  is  used,  all  records  will  be  considered 
regardless  of  base. 


SHOW  SPP  (X/Y) 

Description: 

The  show  command  will  list  by  SPP  each  increment-decrement  in 
the  data  base  and  it's  character  title.  If  no  SPP  is  specified  or  the 
keyword  'SPP'  is  left  off,  all  will  be  displayed.  One  SPP  or  a range 
of  SPP's  may  be  specified  using  the  SPP  keyword. 


2.3. 1 Examples 


COMMAND’:  show  snp(6) 


r.j.nvrp  oorxri'h 


SPOPPOF 

OP-090 


rc> ’MA’?r?:  show 


"T"T  p 

oi.ovrp  orrTfrR 

fppfpri’"  ROr'*' 

ftprttf  ro’^Tpp 

nrinF’'"’  MorT"OP. 
Rpor  PPOOPAM 
RTirPT,”'  SITPPPP” 
Fnr  compa"bvf,,t. 
Prrn  pttif  'fpMr 
RTPIFpP  A.PS"(1) 
pm'1"  SI^F  BMP"* 


PIP 
+001 
+001 
+ 001 
+ 0O  4 

+005 
+00C' 
+007 
+000 
+ 0OO 
+010 


pop 

or. 

07 


COMMAND? : show 


rnT.TT  r 

ACITR  F4  00 

ao  niu-r"  Fyorr 
ao  pit  lf"  rrcrp 
ii’A.r  arp  rAPiv 
1VAO  AP.P  FAPJ.v 
AF'P  "O  NTT 
AF'S  TO  DPF 
IDAO"  AF59 
INAC"  RIF  ATF 
TTIO  A'TP  ^o  MpF 
I?TAOr’  AP-20 

ppr  ro*tPA'T'  snpp 

MAvroMprono 
PIivpTOTAf’P  APR" 

PPvPTOTAMP  APB" 

PI,vPTCTATiP  APR’7' 
ptiveirTAFP  APR" 
ppvpTplATTP  APR" 

PITVPTOIAI’P  APPr' 
ppvpTOTAFR  APP" 

P|TVpirTA7’P  APP'r 
PPVRTOJATTR  ARP" 
ptlvPTrTAtTP  APP" 

Ppv.RirlANP  APP" 

Copy  available  to  DDC  doe*  not 

permit  fully  legible  reproduction 


pfofpof 
or- oi 
oo-oi 
OF— 01 

or- 01 

Or- 01 
or- oi 

Or-n.l 

or- oi 
or- 03 
or- oi 
or-oi 

OP- 0/1 
or- 04 

op-oa 

or-o/t 
or- 04 
or-OA 
op-oa 
of-oa 
op-oa 
Or-OA 
of-oa 
of-oa 
op-oa 


BID 
+ 10] 
-10] 
-101 
-100 
-107 
-300 
-309 
-110 
-111 
-11? 
-313 
-POO 
-501 
+005 
+oor, 

+007 
+ooo 
+009 
+010 
+01.1 
+0]  2 
+013 
+0]  A 
+015 
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Keyword  Specification: 

'SPP'  is  the  only  keyword  allowed  and  is  optional.  If  not  specified, 
all  SPP's  will  be  listed. 

Special  Considerations: 

None 


2.4  LIST  KEYj  [(X  [/Y]  j] 

Where  KEYj  is  a valid  3 character  abbreviation 

X is  an  optional  number 
Y is  an  optional  number 

Description: 

This  list  command  allows  the  user  to  query  the  data  base  through 
a fixed  sequence  of  keywords  and  optional  ranges  associated 
with  each  keyword.  See  pp.  6 for  allowed  sequences  of  keywords. 
Billets  are  displayed  in  successively  finer  levels 
of  detail  as  additional  valid  keywords  are  added  to  each  of  the  1st 
three  entry  keywords.  No  additional  keywords  are  allowed  for  entry 
keyword  'NEC'.  The  four  entry  keywords  are: 

SPP 

PEN 

RDS 

NEC  (No  additional  keywords  allowed) 

Keyword  Specification: 

Exceptions  to  the  following  general  discussion  on  keyword  usage 
will  be  listed  for  each  keyword  following  the  discussion. 

In  general,  each  keyword  may  be  followed  by  an  optioned  parenthesized 
range  specification  of  the  form: 

KEY  ( X/Y  ) 

Where  X = an  appropriate  starting  value  for  a range  specification 
or,  if  no  '/Y'  is  specified,  the  value  the  record  must 
have  for  the  key  specified  before  it  may  be  reconsidered. 

VY*  = if  used,  indicates  the  inclusive  maximum  value  the 

record  may  have  specified  before  it  may  be  considered. 

If  no  range  specification  is  indicated,  all  records  are 
considered.  Each  keyword  and  its  optional  range  is 
seperated  by  a comma  (',')  or  space  character. 


! 
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— 1 

II 

DISCUSSION  OF  SPECIFIC  KEYWORDS  AND  EXCEPTIONS: 


SPP 

Ranges  of  1 through  15  are  valid 

■f 

HDS 

(Rating  (ENL),  Designator  (OFF)  Ranges  are  valid  only  for  officer  (OFF) 
base.  For  all  other  bases  only  all,  by  the  absence  of  a specification,  or  a 
specific  RDS  (AB,  STG...)  will  be  accepted. 

1 

T 

PGR 

(PAYGRADE)  Ranges  of  1 through  99  are  valid 

NEC 

(NAVY  ENLISTED  CLASSIFICATION)  ranges  of  0000  through  9999  are 
valid. 

7 

X 

ACT 

(ACTIVITY)  If  a parenthesized  specification  is  included  it  must  consist 
of  a 10  character  alphanumeric  activity  specification.  Blanks  are  signi- 
ficant in  the  specification.  It  should  be  noted  that  the  specification: 

I 

(ABCD  12345) 

T 

A 

is  different  from  the  specification: 

(ABCD12345....45) 

I 

Each  specification  is  ten  characters  in  length.  The  first  contains  an 

7 

embedded  blank  character  while  the  second  contains  a trailing  blank 
character. 

I 

SID 

(INCREMENT  - DECREMENT)  Ranges  from  -999  to  +999  are  valid 

T 

( 

PEN 

(PROGRAM  ELEMENT  NUMBER)  Ranges  from  0 to  99999  are  valid 

CLA 

(CLAIMANT)  ranges  from  0 to  99  are  valid 

m* 

Examples: 

(Assume  Set  B = ENL) 

List  SPP  (3),  RDS  (ETN),  PGR  (4/9) 

Extract  all  Billet  Counts  for  SPP  3 with  the  rating  ETN  for  paygrades 
4 through  9. 

LIST  PEN,  ACT 

•j 

Extract  all  program  element  numbers  and  list  all  activities  present 

»r  • 

within  each  with  associated  billet  counts 

mm 

(Assume  SETB  = ENL) 

•4 

LIST  RDS,  SPP 

Extract  billet  counts  for  all  ratings  and  list  by  SPP  within  each  rating. 

• • 

L 
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Special  Considerations: 

Caution  must  be  used  with  commands  which  have  the  potential 
for  producing  voluminous  output.  For  instance 

LIST  SPP,  RDS,  PUR 

in  its  unqualified  form  (no  ranges  specified  defaults  to  all  for  each 
keyword)  will  produce  one  line  of  output  for  each  paygrade  within 
each  rating  within  each  SPP.  With  the  potential  of  9 SPP’s,  105 
ratings  within  each  SPP.and  up  to  9 paygrades  within  each  rating, 
one  could  get  up  to  8500  lines  of  output  with  all  categories  filled. 

For  queries  such  as  this  it  is  suggested  that  the  PRNT  command 
be  used. 

For  online  queries  it  is  suggested  that  appropriate  ranges  be  specified. 
For  instance: 

LIST  SPP  (3),  RDS,  PGR  (4/7) 

would  produce  a maximum  of  420  lines  of  output,  but  more  likely 
much  less  since  it  is  not  probable  that  all  ratings  would  contain 
all  paygrades. 

2.5  PRNT  KEYj  [(X  [/Y]  )] 

where  KEY-  is  a valid  3 character  abbreviation. 
X is  an  optional  number 
Y is  an  optional  number 


Description: 

The  PRNT  command  uses  identical  keywords  and  rules  as  the  LIST 
command.  Refer  to  the  LIST  command  for  a description  of  available 
options. 

The  PRNT  command  produces  a batch  type  job  which  normally  begins 
execution  shortly  after  the  interactive  session  ends.  It  should  be  used 
where  large  amounts  of  output  are  expected  or  immediate  results  are 
not  necessary.  Upon  entering  the  command,  syntax  and  range  checks 
are  made.  If  no  errors  are  detected,  the  command,  along  with  other 
necessary  information  are  written  to  a file  and  the  message  ’command 
accepted'  is  issued.  The  output  of  the  batch  job  will  contain  the  date, 
time,  delta  base,  and  command  iine  prefixed  to  each  set  of  output. 

Keyword  Specification: 

Refer  to  explanation  under  the  LIST  command. 

Examples: 

(ASSUME  SETB=OFF) 

PRNT,  SPP,  RDS,  PGR 

Produce  a batch  listing  of  billet  counts  for  all  paygrades  for  each 
officer  designator  within  each  SPP. 

(ASSUME  SETB  = ENL) 

PRNT  SPP,  SID  ( -10/+10),  RDS,  PGR,  NEC 


1 

‘ 

i 


' 


: 


-7- 


1 1 

-i  i I 


Produce  u batch  listing  of  billet  counts  by  Navy  enlisted  classification, 
within  each  paygrude  for  each  rating.  Additionally,  use  only  records 
whose  increment  decrement  falls  in  the  runge  -10  to  +10.  Order  the 
listing  by  SPP  und  produce  a listing  for  each  SPP  present  in  the  data 
base . 

Special  Considerations: 

This  command  is  generally  used  for  queries  which  are  expected  to 
produce  large  amounts  of  output  or  where  quick  response  is  not 
necessary.  Overnight  or  faster  service  can  generally  be  expected 
for  the  PRNT  command. 


SUM1  KEY KEY 

SUMj(-)  SUM  ....(-  )SUMn 

Where  1 = a single  digit  0 through  9 or  the  alpha  character  's'. 

KEY:  = Any  valid  series  of  key  words  and  ranges  as  specified 
under  the  LIST  command. 

SUM.  = a series  of  'SUM'  keywords  (up  to  a maximum  of  9) 

suffixed  with  a unique  index  and  prefixed  with  a '+'  or  sign. 

If  no  sign  is  indicated,  '+'  will  be  assumed. 

Description  and  Keyword  Specification: 

The  Sum  Command  Employs  Three  Basic  Forms: 

(1)  SUM.  KEY KEY 

Displays  and  stores  the  sum  under  the  index  i for  the  combina- 
tion of  keywords  specified.  Keywords  are  the  same  as  those 
under  the  LIST  command. 


SUMj  (-)  SUMj (-)SUMn 


Displays  and  stores  the  sum  under  the  index  i after  performing 
the  indicated  addition  and  subtraction.  Each  index  must  be  in 
the  range  0 to  9 and  must  be  unique  for  each  entry  of  the  command 
(SUMO  = + SUM1  - SUM2  + SUM1  would  be  invalid)  because  the 
index  '1'  is  used  more  than  once. 


(3)  SUMS 


Displays  all  the  SUM.  counts  presently  stored  for  each  index  i along 
with  a description  derived  from  the  first  40  characters  of  the 
command  line  excluding  the  command  itself.  (No  Key  used  for 
SUMS  command) 
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Examples: 

SUM5  SFP,  RDS(ETN) 

(ASSUME  SETB  = 'ENL') 

Sum  billet  counts  which  qualify  under  the  keywords  and  ranges 
specified,  store  the  totals  under  index  5,  and  print  the  totals 
at  the  terminal. 

SUM3  SUM1 - SUM2 + SUM4 

Subtract  (by  year)  the  six  years  of  billet  counts  stored  under  index 
2 from  those  stored  under  index  1;  Add  those  stored  under  Index  4, 
store  the  result  under  Index  3 for  each  of  the  6 years:  print  the 
result  at  the  terminal. 

SUMS 

List  for  each  Index  0 through  9 the  description  and  billet  counts, 
if  any,  stored  for  that  index. 

Special  Considerations: 

None 


2.7  RATE  SUMj  SUMj 

Where  i & j are  indicies  in  the  range  0 through  9. 


Description: 

The  RATE  command  computes  the  quotient  to  5 decimal 
places  by  year  of  the  billet  counts  stored  under  index  i 
divided  by  the  billet  counts  stored  under  index  j.  The  six 
quotients  are  not  retained  by  DELTAQ.  Attempted  division 
by  zero  will  yield  a zero  quotient. 

Keyword  Specifications: 

Only  two  key  words  are  allowed  and  are  mandatory.  For 
user  clarification,  the  keywords  may  be  separated. by  the 
slash  ('/')  character,  but  is  not  required. 

Examples: 

Rate  SUM1  SUM2 

(WHERE  SUM1,  SUM2  have  been  previously  defined 
with  the  SUM  command) 

Divide  the  six  years  of  billet  counts  stored  under  Index  1 by 
the  six  years  of  billet  counts  stored  under  Index  2 and  print 
the  results  at  the  terminal.  If  SUM2  contains  any  zeros,  the 
corresponding  result  will  contain  zeros. 

Special  Considerations: 

None 
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2.8  FLAG 


Description: 


The  FLAG  command  invokes  a separate  routine  which  allows  the 
user  to  FLAG  (UNFLAG)  INCREMENT-DECREMENTS  by  SPP  number 
and  DELTA. 


The  DELTA  FLAG  routine  embodies  its  own  set  of  commands  in  much 
the  same  manner  as  the  main  routine. 

SETD  [x] 

The  SETD  command  sets  the  appropriate  DELTA  to  be 
flagged  where  X is  an  optional  2 digit  number.  This 
command,  though  exactly  the  same  in  syntax  as  the  SETD 
command  described  in  Section  2.1,  is  used  only  by  the  FLAG 
routine  and  mast  be  initialized  each  time  the  FLAG  routine  is 
entered.  As  in  the  main-routine,  if  no  DELTA  is  specified, 
the  present  DELTA  will  be  displayed. 

SPP  [x] 

The  SPP  command  sets  the  particular  SPP  to  which  the 
increment-decrements  entered  in  the  FLAG  command  are 
to  apply.  Optionally,  if  no  'X'  is  specified,  the  present 
SPP  will  be  displayed. 


FLAG/UNFL 


(-)XXX/  ( - ) Y YY,  ( - ) ZZZ 


The  FLAG/UNFLAG  command  will  FLAG  or  UNFLAG  the 
INCREMENT-DECREMENTS  specified  for  the  DELTA  and 
SPP  specified  in  the  SETD  and  SPP  commands.  The  INCREMENT- 
DECREMENT  list  specified  may  consist  of  individual  numbers 
separated  by  commas  and/or  ranges  or  INCREMENT  DECREMENTS 
separated  by  slashes,  each  complete  range  specification  being 
separated  by  a comma. 

Optionally,  the  word  'FILE'  may  be  substituted  for  the  increment- 
decrement  list.  In  this  case,  the  routine  will  read  SPP  INC/DEC 
combinations  off  a file  and  perform  FLAGGING/UNFLAGGING 
based  on  the  contents  of  the  file.  (B-K  Dynamics  should  be  consulted 
prior  to  each  use  of  this  command). 

In  either  case,  at  the  conclusion  of  each  flag  command,  a list 
of  INCREMENT/DECREMENTS  FLAGGED/UNFLAGGED  will 
be  displayed  followed  by  an  optional  list  of  those  which  were  not 
found  under  the  SPP  specified.  This  list  will  not  appear  if  till 
INCREMENT-DECREMENTS  were  found. 

EXAMPLES:  (ASSUME  SETD  01,  SPP,  05) 

FLAG  + 301,  -215,  +212/220,  +300 

FLAG  the  individual  INC/DECs  +301,  -215,  +300,  and  all  in 
the  range  from  +212  to  +220  inclusive,  in  DELTA  01  for  SPP  05. 
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FLAG  FILE 


Head  in  SPP-INC/DEC  combinations  from  the  standard  input 
file  (SIDS)  and  FLAG.  B-K  Dynamics  should  be  contacted  for 
instructions  on  setting  up  the  file  before  using  this  command.  The 
SPP  need  not  be  set  before  using  this  command. 


UNFL  -20/+112,  +115,  -300 


UNFLAG  all  INC/DECs  in  the  inclusive  range  -20  to  -112 
and  +115,  -300.  For  the  DELTA  and  SPP  previously  set. 


COPY  XX 

The  COPY  command  works  against  a previously  set  DELTA  and 
SPP  specified.  It  will  copy  the  FLAG  from  the  DELTA  'XX'  to 
the  DELTA  specified  in  the  SETD  command.  The  message  'COPY 
COMPLETE'  will  be  issued  upon  completion  of  the  copy. 


: 


1 


2.9  END 

Description: 

The  END  command  halts  execution  of  DELTAQ,  submits 
a job  for  batch  processing  if  the  PRNT  command  was  used 
during  the  session,  and  returns  control  to  TSO  for  execution 
of  other  on-line  routines. 

Keyword  Specification: 

None 


Example: 

END 

Terminate  the  present  DELTAQ  session,  submit  a batch  job  if  the 
PRNT  command  was  used,  return  control  to  TSO. 


Special  Considerations: 
None 


Time  Sharing  Option  (TSO) 


The  interactive  programs  within  the  M1NI-NAMPS  System  are  executed 
using  the  Time  Sharing  Option  of  OS.  In  conversational  mode,  execution 
starts  as  soon  as  you  send  the  instruction  from  the  terminal,  and  results 
are  printed  at  the  terminal  as  soon  as  the  program  produces  them.  This 
section  describes  the  commands  necessary  to: 


• Identify  yourself  to  the  system 

• Define  characteristics  of  the  session 

• End  your  terminal  session. 


3.2  LOGON  Procedure 

a)  The  first  thing  you  mast  do  to  begin  a terminal  session  is  to  establish 
communication  with  the  Nlll  computer  facilities.  This  is  dependent  on 
the  type  of  terminal  and  coupling  system  available  for  the  user.  Since 
telephone  numbers  change  periodically,  it  is  suggested  that  users  refer 
to  recent  issues  of  the  NIM  publication  INTERFACE  or  call  the  N1H  Computer 
Center  for  current  telephone  numbers. 


T 
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b)  Once  your  terminal  has  received  a signal,  type  LOGON  followed 
by  identification  information  in  the  following  format: 


LOGON 

where: 


aaaaiii/ttt/bbb  REGION  (nnn) 

aaaa  is  your  account  code 

iii  are  your  initials 

ttt  is  the  terminal  identification  number 

bbb  is  the  account  box  number 

nnn  is  the  core  storage  required 

(300  is  required  to  execute  PLOTC 
and  DELTAQ) 


» • 


after  typing  in  the  appropriate  information  hit  the  carriage  return  button 
on  your  terminal. 

c)  The  system  will  prompt  you  for  your  keyword  on  the  next  line  as 
follows: 

KEYWORD?  key 

where:  key  is  your  designated  keyword 

after  typing  your  keyword,  hit  the  carriage  return  button. 


3.3  Executing  DELTAQ 

To  execute  the  interactive  program  DELTAQ  simply  type  EXEC 
DELTAQ  and  hit  carriage  return.  The  program  will  execute  and  commands 
should  be  input  according  to  the  formats  described  in  the  users'  guide. 


3.4 


LOGOFF  Procedure 

End  your  terminal  session  by  typing  LOGOFF  followed  by  a carriage 
return.  The  command  will  display  billing  information  for  the  session;  display 
date,  time,  and  length  of  session;  and  disconnect  your  terminal  from  TSO. 
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